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积分 方程 是 继 微分 方程 之 后 出 现 的 一 个 新 的 近代 数学 的 重要 分 支 , 也 是 科学 研 
究 和 解决 工程 技术 问题 的 重要 工具 之 一 , 具有 广泛 的 应 用 . 方程 求解 是 积分 方程 研 
究 的 热点 和 难点 之 一 . 本 书 在 前 人 研究 的 基础 上 , 利用 吴 文俊 院士 所 倡导 的 “数学 
机 械 化 ”的 思想 和 方法 研究 了 积分 方程 求解 以 及 机 械 化 算法 等 问题 . 主要 工作 包括 
如 下 几 个 部 分 : 

第 一 章 , 简要 综述 了 积分 方程 研究 简 史 、 积 分 方程 求解 方法 、 数 学 机 械 化 及 其 
应 用 等 ; 第 二 章 , 研究 了 Fredholm 积分 方程 和 方程 组 的 耶 解 核 求解 法 及 其 机 械 化 
算法 , 利用 这 些 算法 求解 Fredholm 积分 方程 时 , 所 要 做 的 全 部 事情 就 是 输入 描述 方 
程 的 信息 , 然后 机 械 化 算法 将 给 出 所 求 方程 的 解析 解 . 特别 地 , 在 机 械 化 求解 的 算 
法 设计 中 , 为 了 增加 求解 过 程 的 逻辑 性 和 理解 度 , 设计 了 可 读 性 求解 过 程 输出 , 使 得 
机 械 化 求解 结果 与 我 们 用 纸 和 笔 求 解 方程 时 的 过 程 几乎 是 一 样 的 ; 第 三 章 , 研究 了 
Volterra 积分 方程 的 Neumann 级 数 与 Taylor 级 数 求 解法 , 以 及 求解 Volterra 积分 
方程 组 的 迭代 法 . 特别 是 在 利用 Neumann 级 数 法 求解 Volterra 积分 方程 的 过 程 中 ， 
将 得 到 的 有 限 迭 代 核 序列 kN(s,t) (М = 1,2,… ,10) “分 解 " 为 若干 个 部 分 , 对 每 一 
部 分 逐一 运用 数学 归纳 法 , 最 后 再 按照 原来 “分 解 ”的 逻辑 顺序 合并 在 一 起 , 从 而 
获取 了 迭代 核 的 通 项 公式 k^ (s, t), 对 此 无 穷 求 和 获得 了 该 类 积分 方程 的 解析 解 , 也 
就 是 探 论 了 利用 有 限 项 结果 通过 数学 归纳 法 得 到 通 项 公式 并 最 终 得 到 解析 解 的 自 
动 化 推理 问题 ; 第 四 章 , 研究 了 高 阶 非 线性 Volterra-Fredholm 积分 一 微分 方程 的 
Taylor 多 项 式 解 的 算法 , 利用 该 算法 获得 了 此 类 积分 一 微分 方程 的 Taylor 多 项 式 
解 或 解析 解 . 在 此 基础 上 , 研究 了 所 建立 的 机 械 化 算法 用 于 求解 高 阶 常 微分 方程 的 
问题 . 第 五 章 , 给 出 了 积分 方程 求解 及 其 机 械 化 算法 研究 的 总 结 与 相关 讨论 . 为 了 
更 清楚 展示 符号 计算 算法 建立 的 思想 与 过 程 , 将 符号 积分 算法 研究 及 其 在 微分 中 值 
定理 自动 推 证 中 的 应 用 列 于 附录 中 . 

本 书 的 编写 得 到 浙江 省 新 世纪 151 人 才 工 程 专项 基金 和 温州 大 学 重点 学 科 建 
设 经 费 的 资助 . 
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第 1 章 绪论 


积分 方程 (integral equation), 即 被 积 函数 含有 未 知 函 数 的 方程 , 是 继 微分 方程 
之 后 出 现 的 一 个 新 的 近代 数学 的 重要 分 支 , 它 与 微分 方程 、 泛 函 分 析 、 计算 数学 、 位 
势 理论 和 随机 分 析 有 着 紧密 和 重要 的 联系 (15, 60, 61, 80, 114, 203, 2121. p Hilbert 
曾 指出 V8, 积分 方程 的 研究 对 于 定 积分 理论 、 级 数理 论 、 线 性 微分 方程 理论 和 变 
分 法 都 是 重要 的 【60, 80). 

众所周知 , 数学 模型 是 解决 实际 问题 的 一 种 重要 手段 . 同一 个 问题 , BELA ЯКС 
分 方程 的 定 解 问题 来 描述 , 也 可 以 用 积分 方程 来 描述 . 而 微分 方程 的 定 解 问题 又 可 
以 化 为 等 价 的 积分 方程 , 这 不 仅 可 以 降低 维 数 , 减少 计算 时 所 用 节点 的 个 数 , 缩短 计 
算 时 间 , 还 可 使 未 知 函数 性 质 上 的 限制 减弱 (只 要 满足 积分 方程 即 可 ), 这样 可 以 不 再 
通过 寻求 微分 方程 所 有 可 能 的 解 到 最 后 再 利用 定 解 条 件 来 确定 满足 定 解 问题 的 解 ， 
而 是 把 满足 方程 与 适合 定 解 条 件 同时 体现 在 积分 方程 这 一 紧凑 的 形式 中 . 特别 地 ， 
积分 算 子 常常 较 微分 算 子 具有 更 好 的 性 质 , 更 适合 于 分 析 和 论证 (60. 80, 114, 203), 
此 外 , 有 些 刻画 扩散 与 迁移 现象 的 数学 问题 , 不 能 用 微分 方程 来 表示 , 为 了 解决 这 些 
кш, 就 必须 用 积分 方程 或 积分 一 微分 方程 来 解决 , 如 中 子 迁 移 理 论 中 的 一 些 问题 
等 4. 

另外 , 积分 方程 也 是 科学 研究 和 解决 工程 技术 问题 的 一 个 重要 数学 工具 . 在 静 
电学 、 电 动力 学 、 弹 性 力学 、 流 体力 学 、 电 磁场 理论 、 辐 射 学 、 地 球 物理 勘探 以 及 
航空 航天 、 土 木 、 机 械 等 领域 的 前 沿 问题 研究 中 , 许多 问题 都 可 化 为 求解 对 应 的 积 
分 方程 , 因而 有 着 广泛 的 应 用 (15, 60, 61, 67, 80, 114, 203, 212). 

由 于 V. Volterra, I. Fredholm 以 及 E. Schmidt 等 一 大 批 研究 人 员 关 于 积分 方 
程 的 出 色 工作 , 使 得 积分 方程 这 门 学 科 的 研究 在 相当 长 一 段 时 间 内 成 了 一 种 世界 性 
的 狂热 , 也 使 积分 方程 的 研究 无 论 从 深度 和 广度 来 讲 都 有 了 很 大 的 发 展 , 产生 了 大 
量 的 文献 , 而 且 很 多 文献 具有 一 定 的 应 用 价值 ， 后 来 , 由 于 积分 方程 的 复杂 性 , 研 
究 的 热度 有 所 下 降 OO Hur, 随 着 计算 机 科学 与 技术 的 迅猛 发 展 , 为 科学 界 和 工 
程 界 提供 了 有 力 的 计算 工具 , 积分 方程 及 其 应 用 的 研究 也 随 之 活跃 起 来 , 有 关 的 杂 
ж, 会 议 及 出 版 物 也 不 断 涌现 , 预示 着 积分 方程 及 其 应 用 的 研究 又 可 能 出 现 新 的 高 
潮 (80, 114, 203, 212. 

而 我 们 正 处 在 信息 时 代 , 在 这 个 以 计算 机 为 标志 的 革命 性 时 代 中 , 特别 是 在 吴 
文俊 所 创立 的 数学 机 械 化 以 及 数学 机 械 化 在 数学 的 诸多 领域 成 功 应 用 的 背景 下 , 对 
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于 目前 相对 较为 “冷清 ”的 积分 方程 研究 应 该 有 什么 样 的 创新 与 之 相 适 应 呢 ? 正 是 
基于 上 述 考虑 , 本 书 将 结合 数学 机 械 化 的 思想 和 方法 , 展开 对 积分 方程 机 械 化 求解 
的 研究 . 

本 章 将 从 积分 方程 研究 简 史 、 积 分 方程 求解 方法 、 数 学 机 械 化 及 其 应 用 等 方面 
进行 简要 综述 . 


1.1 积分 方程 研究 概况 


根据 已 有 资料 , 特别 是 参考 了 文献 115. 60, 61, 80, 114, 203, 212) 中 关于 积分 方 
程 发 展 简 史 的 有 关 论述 , 本 节 将 综述 积分 方程 研究 概况 , 并 且 较 详细 地 叙述 在 后 续 
几 章 中 涉及 到 的 重要 概念 或 定义 , 在 此 基础 上 , 本 节 最 后 简单 归纳 总 结 目 前 积分 方 
程 研 究 的 主要 方面 . 

积分 方程 如 同 微分 方程 一 样 起 源 于 数学 物理 问题 ， 积 分 方程 的 一 般 理 论 是 在 
20 世纪 逐步 发 展 和 成 熟 起 来 的 . 但 是 , 积分 方程 的 研究 则 在 18 世纪 末 就 已 经 出 现 
T. 早 在 1782 年 , P. Laplace 就 考虑 过 由 


+оо 
He) = / еда (11) 


给 出 的 g(t) 的 积分 方程 , 而 这 是 今天 广泛 应 用 的 关于 g(t) 的 Laplace 变换 公式 . 1823 
年 , S. Poisson 给 出 了 问题 (1.1) 中 g(t) 的 表达 式 , Bp: 
g(t) = E f mee e™ f(z)dz (1.2) 


27i оо 


其 中 , a 充分 大 . 
19 世纪 , 由 于 科学 技术 的 发 展 , 从 一 些 实际 问题 中 提出 了 许多 关于 积分 方程 的 
问题 . 例如 , 热 理 论 中 关于 


f(z) = J 7 eos(zt)u()dt (1.3) 
的 反 演 问 题 是 真正 属于 积分 方程 史 的 值得 注意 的 结果 , 1811 4E, J.Fourier 解决 了 问 
i (12), 并 指出 函数 й 
u(t) = ai cos(zt) f (x)dx 
即 为 问题 (1.3) 的 解 . 


第 一 个 直接 应 用 并 求解 积分 方程 的 数学 家 是 N. Н. Abel. Abel 提出 了 在 地 球 
引力 场 中 的 一 个 质点 下 落 问题 : 在 一 个 垂直 平面 内 , 求 一 个 质量 为 m 的 质点 在 垂直 
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等 加 速 条 件 下 下 落 所 经 的 路 径 , 使 其 下 落 的 时 间 等 于 下 落 垂直 距离 h 的 已 知 函 数 
T(h). 
Abel 从 下 落 质 点 的 动能 和 势能 之 间 的 关系 着 手 研究 这 一 问题 . 假设 质点 下 落 
过 程 中 没有 摩擦 , 从 高 度 h 下 落 到 y (< h) 时 , A: 
m/ds 
2: (2 
其 中 , @ 是 在 t 时 刻 的 切线 速度 ,s 是 弧 长 , g 是 重力 加 速度 . 解 出 dt, 并 且 求 积 , 即 
得 : 


y = mg(h — y), 


=T(h). 


[ту Fate y) 
4 ds = -u(y)dy, 即 可 得 下 述 积分 方程: 


[BS ea T(h). 


V2g(h — y) y) 


在 此 基础 上 ,Abel 在 后 续 研 究 中 导出 了 更 一 般 形式 的 积分 方程 , 后 人 称 之 为 
Abel 积分 方程 : 


u(z) = / E cra, (0 « a « 1, u(a) — 0), (14) 


其 中 , u(z) 是 已 知 函数 , f(y) 是 未 知 函 数 . 并 且 , 他 给 出 了 方程 (1.4) 的 解 为 : 
_ Sinar d u(x) 
т dy Ja E z)- ade 
此 后 , Abel 方程 成 为 许多 数学 家 研究 的 对 象 , 并 从 多 方面 加 以 推广 . 
J. Liouville 独立 于 Abel, 自 1832 年 起 解决 了 一 些 特殊 形式 的 积分 方程 . Liou- 


ville 跨 出 的 最 有 意义 的 一 步 是 表明 某 些微 分 方程 的 解 可 以 通过 解 相 应 的 积分 方程 
而 得 . 例如 , 所 要 求解 的 微分 方程 是 


y" +(e — о(шж)]у = 0, (1.5) 
其 中 , a < т < b, р 是 参数 . 设 u(z) 是 满足 初始 条 件 

u(a)=1, w(a)=0 (1.6) 
的 一 个 特 解 , 则 u(z) 必定 是 非 齐 次 方程 


y" + py = c(z)u(z) 
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的 解 . 应 用 常 微分 方程 的 基本 结果 , 便 有 : 

u(x) = cos p(x — a) 十 if p(t) sin p(x — t)u(t)dt. (1.7) 
这 样 , 如 果 能 够 求解 积分 方程 (1.7), 即 可 得 到 二 阶 微分 方程 (1.5) 满足 初始 条 件 (1.6) 
Ж. 


Liouville 得 到 形 如 (1.7) 的 解 , 用 的 是 被 认为 属于 C.G.Neumann КИО. 
而 Neumann 的 涉及 讨论 逐次 允 近 法 的 著作 《对 数 和 牛顿 位 势 的 研究 》(Untersuchun- 
gen iiber das logarithmische und Newton’sche Potential, 1877) 是 四 十 多 年 后 的 1877 
年 出 版 的 . 逐次 逼近 法 在 今天 仍 是 积分 方程 求解 的 有 效 算法 之 一 . 

Abel 和 Liouville 所 研究 的 积分 方程 都 属于 基本 的 类 型 , Abel 研究 的 是 


ло) = {rata (18) 


而 Liouville 的 则 是 : 
а) = ща) -[ k(x, t)u(t)ae, (1.9) 


在 这 两 种 情形 中 , f(z) 与 k(z,t) 是 已 知 的 , 而 u(z) 是 待定 的 函数 .用 Hilbert (48) 
引入 的 今天 仍然 在 使 用 着 的 术语 来 说 , 它们 分 别 属于 第 一 种 (the first kind, 未 知 函 
数 只 在 方程 中 的 积分 号 里 面 出 现 ) 和 第 二 种 (the second kind, 未 知 函数 既 出 现 于 
方程 的 积分 号 下 , 也 出 现在 方程 的 其 他 地 方 ) 积分 方程 , k(z,t) 称 为 积分 方程 的 核 
(kernel). 

一 般 地 ，(1.8)，(1.9) 也 称 为 Volterra 积分 方程 , 而 当 上 限 > 是 固定 数 b 时, 它 
们 就 称 为 Fredholm 积分 方程 , 即 : 


лә) = | " ks, (tdt (1.10) 


fle) -«)- f "а, дщ, (1.11) 


分 别称 为 第 一 种 和 第 二 种 Fredholm 积分 方程 . 

ERE, Volterra 积分 方程 是 相应 的 Fredholm 积分 方程 的 特殊 情形 , 因为 在 
(1.10), (1.11) 中 当 二 > 2 时 取 k(x, f) = 0 即 可 得 相应 的 (1.8), (1.9). 而 f(x) = 0 
时 的 第 二 种 积分 方程 这 一 特殊 情形 称 为 对 应 的 齐 次 方程 . 

19 世纪 中 叶 , 积分 方程 的 主要 兴趣 是 围绕 着 求解 Laplace 方程 

Pu Pu 


Au= БЛ tx By 


=0 (1.12) 
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(也 称 为 “Dirichlet” 问 题 或 “位 势 方程 A HH Laplace HF) 有 关 的 边 值 问题 而 
展开 的 , 方程 要 在 某 条 曲线 C. 所 围 成 的 已 知 平面 区 域内 成 立 . u 的 边 值 是 某 一 函数 
f(s), 它 作为 沿 曲线 C 的 弧 长 s 的 函数 给 出 . 这 时 位 势 方 程 的 一 个 解 可 以 表示 成 : 
1 
u(z,y) = z [^e s)k KETTEN 


其 中 , т(з;т, y) 是 点 в 到 区 域内 部 或 边界 上 任 一 点 (z,y) 的 距离 , 而 p(s) 是 一 个 未 
知 函 数 , 它 对 C 上 的 点 s= (zy) 满足 


f(s) = 去 / p(t) log д5 (113) 
显然 , 这 是 关于 p(t) 的 第 一 种 积分 方程 . 换 一 种 选择 , 如 果 把 方程 (1.12) 的 满足 同 
样 边界 条 件 的 解 取 作 
1 
v(z,y) = 去 人 u(s)z— 2 (los dez) 
其 中 , dz 表示 边界 上 的 法 向 微 商 , 那么 u(s) 必须 满足 积分 方程 
1)= 599) + э- 人 wt) (log Wy (114) 


这 是 第 二 种 积分 方程 . 
由 此 可 见 , 同一 个 问题 既 可 以 用 第 一 种 积分 方程 表示 , 也 可 用 第 二 种 积分 方程 
表示 . 事实 上 , 第 一 种 积分 方程 在 一 定 的 条 件 下 可 以 转化 为 第 二 种 积分 方程 . 
偏 微分 方程 的 另 一 个 问题 一 波动 方程 , 也 是 通过 积分 方程 解决 的 . 1894 年 , 大 
数学 家 H.Poincaré 考虑 了 带 复 和 值 的 波动 方程 : 


Au + Аи = f(z,y), 
在 此 基础 上 , 1896 年 , 他 研究 了 由 上 述 偏 微分 方程 导出 的 下 列 形式 的 积分 方程 : 
b 
ща) A f k(e,u)ulu)dy = 969), 


并 且 断 言 , 其 解 是 和 的 亚 纯 函数 
但 值得 一 提 的 是 “积分 方程 ”一 词 是 1888 年 D. Reymond 第 一 个 提出 的 . 
1884 年 起 , 罗马 的 数学 物理 教授 V. Volterra 在 积分 方程 方面 的 工作 , 是 线性 积 
分 方程 研究 的 重要 转折 点 , 他 也 因此 被 认为 是 积分 方程 一 般 理论 的 创始 人 . Volterra 
研究 了 形 如 (1.9) 的 积分 方程 , 即 第 二 种 Volterra 积分 方程 : 


f(z) =ща)-^ [ Р k(z, t)u(£)dt, (1.15) 


.6. Six # k 


并 且 证 明了 : 如 果 k(x, t) 在 正方 形 a < z,t <b 上 连续 , f(x) 在 区 间 [a,b] LES, 
则 对 任意 的 A, 方程 (1.15) 有 且 只 有 唯一 连续 解 , 并 且 该 解 可 用 逐次 逼近 法 求 得 . 此 
Dh, Volterra 还 给 出 了 第 一 种 Volterra 积分 方程 


f(z) = 入 f ^ k(x, u(t (1.16) 


的 求解 方法 , 用 的 方法 是 将 第 一 种 积分 方程 (1.16) 化 为 第 二 种 积分 方程 (1.15) 的 
形式 求解 . 这 种 求解 方法 一 直 延 续 至 今 仍 在 使 用 . 在 研究 过 程 中 , Volterra 还 发 现 ， 
第 一 种 Volterra 积分 方程 能 够 转化 为 含 n 个 未 知 数 的 n 个 线性 代数 方程 组 的 形式 
(n — oc). 

与 此 同时 , 斯 德 哥 尔 摩 的 数学 教授 Т. Fredholm 也 一 直 潜心 于 Dirichlet 问题 的 
求解 , 他 吸收 了 这 一 时 期 关于 积分 方程 的 各 种 论述 和 研究 思想 , 系统 地 研究 了 积分 
方程 理论 . 1899 4E, 他 在 给 老师 Mittag-Leffler 的 一 封 信 中 提出 了 如 下 形式 的 积分 
方程: 

1 
f(z) =u(z) +A (7 K(z, t)u(t)dt, (1.17) 


其 中 , k(z,t) 是 正方 形 0 < z,t <1 上 的 已 知 连续 函数 , f(z) 在 区 间 [0,1] 上 连续 , 而 
u(x) 是 未 知 函 数 . Fredholm 认为 , 积分 方程 (1.17) 的 解 可 以 表示 为 A 的 两 个 整 函数 
的 商 的 形式 . 1900 年 , Fredholm 发 表 了 第 一 篇 关于 积分 方程 求解 理论 的 论文 (921, 
提出 了 与 核 函 数 k(z,t) 有 关 的 Fredholm 行列 式 d(A) 和 Fredholm FRÈ D» (z, t), 并 
且 证 明了 它们 都 是 的 整 函数 . 在 该 文中 , Fredholm 还 巧妙 地 证 明了 : ШЖ 和 是 函 
数 d(A) 的 一 个 零点 , 则 积分 方程 (1.17) 的 齐 次 方程 


ща) + f “Ka t)u(t)dt =0 


有 不 恒 等 于 0 的 解 . 此 即 为 著名 的 Fredholm 第 二 定理 . 

1903 年 , Fredholm 又 发 表 了 另 一 篇 论文 93), 对 积分 方程 (1.17) 作 了 进一步 的 
研究 , 他 取 和 = 1, 得 到 了 如 下 结果 : MR d(1) #0, 则 有 且 仅 有 一 个 函数 u(z) 满足 
积分 方程 (1.17), 并 可 表示 为 : 


1 
wea) = f) - | PIED ra. 


此 即 Fredholm 第 一 定理 . 

Fredholm 得 到 的 关于 积分 方程 的 很 多 结果 , 极其 密切 地 平行 于 齐 次 与 非 齐 次 
线性 代数 方程 组 的 理论 . 

由 于 Volterra, Fredholm 等 人 关于 积分 方程 的 出 色 工作 , 使 得 积分 方程 这 一 研 
究 领 域 吸引 了 许多 数学 家 的 注意 , 尤其 是 D. Hilbert 在 积分 方程 理论 的 宏伟 工作 . 
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从 1904—1910 4£, Hilbert 在 《拉丁 根 自然 科学 皇家 学 会 报告 》(Nachrichten der 
Königlichen Gesellschaft der Wissenschaften zu Góttinggen) 上 一 连 发 表 了 6 篇 论 
文 , 后 收录 于 其 专著 《线性 积分 方程 一 般 理 论 的 原理 》(Grundziige einer allgemeinen 
Theorie der linearen Integralgleichungen, 1912) (48) 中 , 系统 研究 了 线性 积分 方程 的 
一 般 理论 , 并 且 把 积分 方程 应 用 到 各 种 几何 和 数学 物理 问题 的 解决 中 . 

Hilbert 关于 积分 方程 的 工作 有 许多 重大 成 果 , 其 中 包括 , 他 用 定义 完备 正 交 系 
这 一 重要 概念 把 无 限 多 个 变量 二 次 型 理论 运用 到 积分 方程 ; 关于 对 称 核 建立 了 一 般 
的 谱 理论 ; 建立 了 任 一 连续 函数 展开 成 核 的 特征 函数 的 级 数理 论 (Hilbert-Schmidt 
定理 ); 引进 了 双 线性 形式 , 开创 了 双 线 性 对 称 形式 的 谱 理论 ; 证 明了 一 个 函数 展 成 
第 二 种 积分 方程 的 特征 函数 的 展开 式 取决 于 相应 的 第 一 种 积分 方程 是 否 可 解 ; 等 等 . 
而 他 最 有 价值 的 成 就 之 一 是 把 微分 方程 的 Sturm-Liouville 边 值 问 题 化 成 积分 方程 
的 创举 . Hilbert 证 明了 


EX) * q(z)u 4 Хи = 0 (1.18) 


满足 边界 条 件 
u(a)=0, u(b)=0 


(甚至 更 一 般 的 边界 条 件 ) 的 特征 值 和 特征 函数 , 恰恰 是 积分 方程 
u(x) 一 入 J ° G(z,t)u(t)dt = 0 (1.19) 


的 特征 值 和 特征 函数 , 其 中 G(z,t) 是 方程 (1.18) 的 Green 函数 , 即 

(рш) аади =0 
的 特 解 , 它 满足 一 定 的 可 微 条 件 , 并 且 它 的 一 阶 偏 微 商 在 > = t 有 等 于 ur 的 奇 
性 跳跃 . 类 似 的 结果 对 偏 微 分 方程 也 成 立 . 据 此 , 积分 方程 变 成 了 求解 微分 方程 的 
一 种 方法 , 这 种 研究 方法 被 成 功 地 用 于 解决 愈 来 愈 多 的 物理 问题 . 后 来 , 人 们 还 发 
现 , n 阶 常 微分 方程 的 边 值 问题 、 偏 微分 方程 问题 的 研究 都 可 归于 某 个 积分 方程 的 
研究 . 从 而 , 掀起 了 积分 方程 的 理论 及 其 应 用 研究 的 世界 性 狂热 . 

Hilbert 在 积分 方程 方面 的 工作 , 被 在 德国 几 所 大 学 担任 数学 教授 的 E. Schmidt 
简化 了 , 他 用 的 方法 是 Н. Schwarz 在 位 势 理 论 研究 中 创立 的 . 他 最 有 意义 的 工作 是 
在 1907 年 把 特征 函数 的 概念 推广 到 带 非 对 称 核 的 积分 方程. 

匈牙利 数学 教授 了 . Riesz 在 1907 年 继续 了 Hilbert 的 工作 , 特别 是 创造 性 地 引 
HET Lebesgue 平方 可 积 函 数 的 定义 , 即 二 重 Lebesque 积分 


b 
Ј кела < ос 
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存在 . 在 此 基础 上 , Riese 证 明了 如 果 f(z) 与 k(z,t) 是 Lebesgue 平方 可 积 的 , WH 
二 种 Fredholm 积分 方程 (1.11) 是 可 解 的 , 3F LER T ЛЧ [a,b] E Lebesgue 积分 为 
0 的 函数 外 , 解 是 唯一 的 . 而 Riesz 1910 年 发 表 在 《Mathematische Annalen) 中 的 论 
文 被 认为 是 泛 函 分 析 核 心 的 抽象 算 子 研究 的 开端 . 在 该 文中 , 他 把 第 二 种 Fredholm 
积分 方程 (1.11) 的 解 推广 到 L? 空间 中 的 函数 , 并 把 Fredholm 积分 算 子 


入 [ ў k(x, t)u(t)dt 


设想 成 作用 在 某 一 Banach 空间 中 的 全 连续 算 子 , 而 未 知 函数 u(z) FO MBR f(z) 
是 该 空间 中 的 点 . Riesz 的 这 一 结果 , 后 来 被 J. Schauder 作 了 补充 , 并 发 展 成 为 泛 函 
分 析 中 关于 全 连续 算 子 的 Riesz-Schauder 理论 . 

与 此 同时 , 科 伦 大 学 数学 教授 B. Fischer 引进 了 平均 收敛 的 概念 , 即 当 


tim, (ле) - fale)” =0 


时 , 称 函 数 序列 (f) 在 区 间 [а,Ь] 上 平均 收敛 到 唯一 确定 的 函数 f(z). 这 里 的 积分 
是 Lebesgue 积分 . 在 区 间 [a, 上 , Lebesgue 平方 可 积 的 函数 集合 记 为 L?[a, 0), 或 
简 记 为 L?. Fischer 的 主要 结果 是 说 ,，L?[a,4] 在 平均 收敛 意义 下 是 完备 的 , 即 : 若 
fn € D^, ЖЕ {fn} 平均 收敛 , 那么 在 L 中 存在 一 个 函数 f(z), 使 得 {及} 平均 收 
SEI f(z). 这 种 完备 性 是 平方 可 积 函 数 的 主要 优点 . 另外 , Fischer 还 强调 Lebesgue 
平方 可 积 函数 的 运用 是 本 质 的 , 没有 更 小 的 函数 集合 可 用 . 

差不多 紧 接 着 Fredholm 积分 方程 理论 的 出 现 , 与 它 本 质 上 完全 不 同 的 奇异 积 
分 方程 理论 也 随 之 产生 了 , 这 类 积分 方程 是 人 们 从 不 同 角度 研究 不 同 问题 而 提出 的 . 
Hilbert 在 研究 解析 函数 的 某 些 边 值 问 题 时 发 现 了 它们 481, 几乎 同时 , Poincaré 在 
研究 潮汐 现象 时 也 发 现 了 它们 104, 这 类 具有 代表 性 的 奇异 积分 方程 是 下 列 形式 
的 积分 方程 Q51: 

доо += S Eo) огеш, (1.20) 

其 中 , L RP LAER, 系数 AC), 自由 项 y(t) W kle, t) 都 是 曲线 弧 LE 
按 Holder 意义 连续 的 已 知 函数 , ptt) 是 未 知 函 数 .积分 方程 (1.20) 在 一 定 条 件 下 
是 按 Cauchy 主 值 的 意义 存在 , 故 也 称 之 为 Cauchy 核 积分 方程. 而 在 研究 大 气 辐 
射 传输 问题 时 , 提出 了 另 一 类 积分 区 域 是 无 穷 的 奇异 积分 方程, 其 代表 性 的 例子 是 
Wiener-Hopf 方程 : 


ote) - [а дву = V), 0 2 < о, 021) 
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其 中 , k(z — у) 与 W(z) 是 已 知 函 数 . 这 类 奇异 积分 方程 的 理论 也 有 很 大 发 展 , 并 且 
在 许多 实际 问题 中 有 着 重要 的 应 用 15, 

另 一 方面 , 由 于 实际 发 展 的 需要 , 非 线性 积分 方程 的 研究 也 出 现 了 不 少 结果 , 然 
而 ， х REREAD TERE жати, 甚至 于 方程 可 解 性 的 讨论 也 比较 
困难 144. 

随 着 泛 函 分 析 理论 的 发 展 和 完善 , 人 们 将 微分 方程 和 积分 方程 的 研究 置 于 抽象 
空间 的 框架 之 下 , 使 积分 方程 的 理论 更 加 完善 , 应 用 也 更 加 广泛 , 同时 也 为 微分 一 
积分 方程 的 研究 英 定 了 基础 . 

在 中 国 , 最 早 从 事 积分 方程 研究 的 老 一 辈 专家 和 学 者 有 张世勋 、 陈 传 玩 、 张 石 
生 等 . 随 着 中 国 各 项 科学 事业 的 发 展 , 积分 方程 也 得 到 相应 的 发 展 , 参与 工作 的 新 生 
力量 日 益 增多 , 研究 的 范围 几乎 涉及 积分 方程 的 各 个 领域 .目前 , 许多 高 校 开设 了 
积分 方程 理论 及 其 应 用 研究 的 课程 , 这 将 为 积分 方程 的 研究 注入 新 的 活力 . 

虽然 , 由 于 积分 方程 本 身 的 复杂 性 , 关于 积分 方程 的 研究 不 再 像 20 世纪 初期 那 
么 狂热 , 特别 是 , 直到 现在 , 关于 第 一 种 Fredholm 积分 方程 (1.10) 尚未 建立 起 系统 
的 理论 , 正如 从 积分 方程 (1.10) 本 身 的 构造 可 看 到 , 即使 方程 (1.10) 的 核 kz,y) 是 
退化 核 这 种 最 简单 的 情形 , 此 方程 也 并 不 总 是 有 解 的 . 但 就 积分 方程 目前 主要 研究 ， 
可 简单 归纳 为 沿 着 如 下 七 个 方面 进行 的 (2121; 

第 一 个 方向 在 于 揭示 新 的 积分 方程 类 , 以 及 其 成 立 的 线性 代数 方程 组 的 基本 定 
理 , Fredholm 关于 特征 值 的 分 布 定理 等 ; 

第 二 个 方向 是 与 正 交 分 解 和 对 称 核 理 论 相 关联 的 , 特别 是 Hilbert 空间 中 的 算 
子 理论 ; 

第 三 , 研究 经 典 Fredholm 定理 不 成 立 的 线性 积分 方程 , 即 所 谓 的 奇异 积分 方 
程 , 如 Cauchy 奇异 积分 方程 、Wiener-Hopf 方程 等 ; 

第 四 , 研究 非 线性 积分 方程 可 解 性 及 求解 ; 

第 五 , 研究 随机 积分 方程 可 解 性 及 求解; 

第 六 , 研究 各 类 积分 方程 的 数值 解法 ; 

第 七 , 研究 各 类 积分 一 微分 方程 可 解 性 及 求解 . 

另外 , 关于 积分 方程 在 各 个 领域 的 应 用 研究 也 始终 贯穿 于 积分 方程 的 发 展 中 . 
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对 自然 科学 中 很 多 问题 的 研究 大 致 可 以 分 为 两 大 类 : 一 是 定性 研究 , 二 是 定量 
研究 . 对 于 积分 方程 研究 而 言 , 定性 研究 即 为 可 解 性 条 件 判 定 , 定量 研究 即 为 方程 
的 求解 . 
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积分 方程 求解 是 一 个 古老 且 在 理论 和 实际 中 都 很 重要 的 研究 课题 ， 积 分 方程 
解 , 即 解析 解 (analytic solution, 也 称 为 精确 解 ) 和 数值 解 (numerical solution), 可 以 
很 好 地 解释 各 种 物理 现象 , 有 助 于 人 们 展开 对 积分 方程 所 刻 划 的 现实 物理 现象 的 分 
析 和 研究 . 

上 节 谈 到 , 第 二 种 Fredholm 积分 方程 (1.11) 已 经 建立 了 系统 的 理论 ( 即 Fred- 
holm 理论 ), 对 于 第 一 种 Fredholm 积分 方程 (1.10) 到 现在 尚未 建立 起 系统 的 理论 ; 
而 第 一 种 Volterra 积分 方程 (1.19), 在 一 般 情况 下 , 可 以 通过 求 微 商 的 方法 化 为 第 
二 种 Volterra 积分 方程 (1.18). 基于 此 , 本 节 将 简单 归纳 积分 方程 的 求解 方法 及 其 
研究 概况 , 不 详细 介绍 各 种 解法 的 具体 步骤, 而 对 于 本 书 研究 中 用 到 的 算法 将 在 后 
续 章 节 中 详 述 . 

对 于 积分 方程 解 的 研究 大 概 可 以 分 为 以 下 三 个 方面 : 

其 一 , 在 难以 求 得 解析 解 的 情况 下 , 对 解 的 适 定性 (存在 性 、 唯 一 性 、 稳 定性 等 ) 
进行 分 析 ; 

其 二 , 借助 于 计算 数学 理论 和 计算 机 技术 , 获取 积分 方程 数值 解 或 近似 解 ; 

其 三 , 应 用 某 些 数学 技巧 或 假设 , 构造 适当 的 变换 使 方程 简化 并 求 出 解析 或 近 
似 解 (approximate solution). 

如 同 微分 方程 一 样 , 由 于 积分 方程 本 身 的 复杂 性 , 已 有 的 大 基 的 积分 方程 无 法 
获得 解析 解 ， 于是, 人 们 转 而 设法 去 求解 积分 方程 的 近似 解 , 并 为 此 发 展 了 许多 可 
行 的 求解 方法 . 

积分 方程 求解 方法 虽然 名 目 繁多 , 但 通常 可 以 将 这 些 方法 分 为 两 类 : 

一 类 是 对 解析 解 作 近似 逼近 , 例如 : 

(1) 逐次 逼近 法 (method of successive approximations) (15, 61, 80] ag. 

(2) 迭代 法 (iteration method) (2, 13, 15, 61, 80, 81, 100, 203, 217) 等 . 

这 类 方法 属于 经 典 的 应 用 广泛 的 求解 积分 方程 的 方法 , 目前 , 单一 地 使 用 这 些 
方法 显现 出 很 多 局 限 性 , 大 多 数 情 况 下 , 人 们 选择 与 其 他 方法 混合 使 用 , 已 成 功 地 解 
决 了 许多 方程 求解 问题 . 

另 一 类 是 化 为 便于 进行 数值 计算 的 其 他 类 型 的 问题 , 主要 方法 有 : 将 核 用 退化 
核 代替 (此 方法 需要 经 过 复杂 的 数学 分 析 过 程 ), 或 者 用 数值 积分 公式 将 积分 方程 化 
为 代数 方程 组 , 或 者 把 积分 方程 化 为 变 分 问题 , 或 者 通过 构造 正 交 基 运 用 待定 系数 
法 求解 , 等 等 . 这 类 方法 中 很 多 是 近年 来 发 展 起 来 的 新 算法 , 在 积分 方程 求解 中 具有 
重要 作用 . 常见 的 方法 主要 有 : 

(1) 积分 法 (quadrature method) (7, 8, 27, 51, 61, 85, 86, 89, 114, 204, 212, 216), 

(2) 投影 法 (projection method) (2. 61, 77, 106), 

(3) 插值 法 (interpolation method) 2. 47, 56, 61, 95, 108, 154, 183, 140, 156), 
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(4) 级 数 法 (series method), 包括 Taylor RH 161. 93, 94, 110, 184, 185), Walsh 
级 数 法 (111, 119) E 

(5) 配置 法 (collocation method) б 11, 14, 45, 52, 57, 61, 77, 99, 198, 1971 以 及 
在 此 基础 上 发 展 的 混合 插值 配置 法 (mixed interpolation collocation methods) 19. 101, 
级 数 展开 配置 法 (Sinc-collocation method) (98, 109], 样 条 配置 法 (spline collocation 
method) (1, 50, 58, 95, 101, 140), 

(6) Tau 方法 (tau method) 9. 102, 105, 107, 112, 214; 

(7) Galerkin 法 (Galerkin method) H3, 46, 74, 94, 103, 179, 211]. 

(8) Adomain 分 解法 (Adomain's decomposition method) (3, 5, 151, 152), 

(9) 并 行 算法 (parallel method) 12. 13, 91, 121), 

(10) 外 推 法 (extrapolation method) [51 75, 88, 126]. 

(11) 荣 格 一 库 塔 法 (Runge-Kutta method) I4 90, 201), 

(12) 小 波 法 (wavelet mathod) 143, 74, 78, 82, 92, 113, 123, 124, 179, 200), 

(13) 神经 网 络 算法 (neural network) 28. 42, 53, 125, 186, 196, 215) 等 等 . 

详细 叙述 这 些 求解 方法 将 会 使 本 书 过 于 元 长 且 并 非 本 书 重 点 , BOE PBR. 
上 述 求 解 方 法 均 可 在 相应 的 参考 文献 中 查 到 详细 的 算法 描述 及 应 用 举例 . 

通过 上 述 求解 方法 , 人 们 获得 了 各 种 积分 方程 诸多 形式 的 精确 解 或 者 近似 解 . 
但 是 , 由 于 积分 方程 求解 问题 本 身 的 复杂 性 , 利用 这 些 方法 求解 时 不 可 避免 地 遇 到 
元 长 繁复 、 令 人 望 而 生 晨 的 各 种 计算 , 且 传 统 的 纸 笔 演算 耗 时 、 费 力 又 易 出 错 , 更 重 
要 的 是 积分 方程 求解 过 程 中 出 现 的 超大 计算 量 的 人 力 难以 胜任 的 十 分 复杂 且 精 确 
的 代数 与 微分 、 积 分 等 符号 计算 以 及 “中 间 过 程 膨胀 ”等 问题 , 使 得 积分 方程 求解 
成 为 该 领域 研究 的 难点 之 一 . 

所 以 , 借助 计算 机 的 大 容量 、 高 速度 的 特点 , 用 精确 的 符号 计算 , 机 械 化 地 实现 
积分 方程 求解 具有 十 分 重要 的 意义 和 广泛 的 应 用 前 景 . 

下 节 我 们 将 讨论 数学 机 械 化 的 若干 问题 , 为 机 械 化 求解 积分 方程 奠定 基础 . 
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1.3.1 数学 技术 


数学 是 一 切 科 学 与 技术 的 基础 , 是 一 切 关键 技术 中 的 关键 . 当代 数学 的 一 个 重 
要 特征 和 发 展 趋势 , 是 数学 内 部 各 分 支 学 科 的 高 度 发 展 和 相互 之 间 在 内 容 、 概 念 及 
方法 上 的 不 断交 叉 和 融合 , 充分 地 显示 出 数学 是 一 个 密 不 可 分 的 整体 . 数学 与 其 他 
学 科 以 及 整个 外 部 世界 的 联系 、 交 又、 渗透 与 融合 也 不 断 得 到 加 强 (63. 118, 195), 
现在 看 来 很 冷清 的 学 科 , 将 来 某 一 天 可 能 会 发 现 重 要 的 应 用 , 变 成 很 热门 的 领域 . 例 
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如 , 像 近世 代数 这 样 很 抽象 的 学 科 , 现 已 成 为 密码 学 研究 最 重要 的 一 个 工具 . 

更 重要 的 是 , 数学 的 应 用 已 经 拓展 到 几乎 每 个 科学 领域 和 应 用 部 门 , 而 且 在 其 
中 起 着 关键 的 不 可 替代 的 重要 作用 (631. 目前 , 数学 应 用 的 范围 逐渐 扩大 , 已 从 以 
往 传统 领域 (如 力学 、 物 理 、 天 文 以 及 传统 工业 领域 ) 扩展 到 非 传统 的 领域 (如 化 
学 、 生 物 、 其 它 各 门 自然 科学 及 高 新 技术 领域 ), 甚至 进入 经 济 、 金融、 保险 及 很 多 
社会 学 的 领域 , 深入 到 各 行 各 业 , 可 以 说 是 无 所 不 在 , 且 发 挥 着 越 来 越 重要 的 作用 

近 三 十 多 年 来 , 计算 机 科学 技术 的 飞速 发 展 对 数学 科学 产生 了 巨大 的 影响 , 各 
种 高 性 能 的 算法 日 益 得 到 重视 和 发 展 . 现在 , 人 们 已 由 利用 计算 机 自 编程 序 算 题 , 到 
应 用 现成 的 大 规模 的 通用 软件 , 到 当今 的 虚拟 现实 、 临 境 技术 , 进展 的 速度 令 人 目 
ЖЕНЕ. 计算 机 的 迅速 发 展 和 普及 , 不 仅 为 数学 应 用 提供 了 强大 的 技术 手段 , 而 且 极 
大 地 改变 着 数学 的 研究 方法 和 思维 模式 ， 数 学 与 计算 技术 的 结合 已 形成 一 种 关键 
性 的 、 可 实现 的 技术 , 称 为 “数学 技术 ” [63, 195. 在 这 种 技术 中 起 关键 作用 的 部 分 
是 数学 , 拿 走 它 就 只 剩 下 一 个 空 壳 , 而 这 种 技术 由 于 计算 机 科学 技术 的 进步 可 以 是 
即时 的 、 在 线 的 , 是 真正 可 以 实现 的 . 例如 , 一 个 三 维 物体 , 如 果 知道 它 在 各 个 方向 
的 平面 投影 , 就 能 推算 出 它 的 精确 形状 . 这 是 一 个 数学 上 的 问题 , 已 由 拉 氏 变换 所 
解决. 现在 的 CT 技术 , 本 质 上 就 是 通过 按 各 个 不 同方 向 的 X 光 投影 来 重 现 人 体内 
部 肿瘤 的 位 置 及 形状 , 完全 是 同一 个 问题 , 所 以 CT 仪器 的 核心 是 体现 拉 氏 变换 的 
计算 机 软件 及 硬件 , 会 此 则 一 文 不 值 ， 因 此 , 数学 技术 本 质 上 是 数学 的 内 容 物化 为 
计算 机 软件 及 硬件 , 成 为 技术 的 一 个 重要 组 成 部 分 . 这 样 , 数学 技术 变 成 了 产品 、 而 
且 是 高 科技 产品 , 真正 、 直 接 转 化 为 先进 的 生产 力 , 从 而 产生 巨大 的 经 济 效益 , 同时 ， 
也 进一步 体现 了 数学 的 价值 63, 

由 于 现代 技术 愈 来 愈 向 高 级 精密 发 展 , 定量 方面 要 求 非常 精细 严密 , 现在 的 高 
技术 本 质 上 是 一 种 数学 技术 , 这 一 观点 已 为 越 来 越 多 的 人 所 认同 , 而 且 已 出 现 不 少 
有 效 的 数学 技术 . 显而易见 , 这 将 成 为 今后 一 个 重要 的 发 展 方向 . 


1.3.2 ”计算 机 数学 与 计算 机 代数 系统 


计算 机 科学 技术 的 迅猛 发 展 对 数学 科学 产生 了 巨大 的 冲击 , 对 数学 研究 的 观念 
及 研究 方法 都 产生 了 深刻 的 影响 . 引发 这 场 冲击 波 的 最 主要 的 数学 事件 是 “四 色 猜 
48” (Four-color conjecture) 的 证 明 . 1976 年 9 H, 美国 《Bulletin of the American 
Mathematical Society》 宣布 伊利 诺 大 学 的 两 位 数学 家 Appel 和 Haken 解决 了 困扰 
数学 界 长 达 近 两 百年 的 “四 色 和 猜想 ”, 这 一 成 果 震 惊 了 整个 数学 界 , 因为 两 位 数学 家 
的 论证 中 有 很 大 一 部 分 并 且 是 关键 的 部 分 是 由 计算 机 完成 的 , 而 整个 证 明 过 程 涉及 
的 超大 量 的 运算 , 对 其 进行 逐步 人 工 检验 是 不 可 能 的 . 这 就 意味 着 “数学 证 明 " 的 概 
BRAT RE 95. 因为 在 传统 上 , 数学 问题 只 能 通过 严密 可 靠 的 数学 推理 才能 得 
到 证 明 , 但 “四 色 猜 想 " 的 结果 却 是 借助 计算 机 程序 而 得 , 因而 在 当时 有 一 大 批 数学 
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家 不 承认 这 是 一 个 数学 证 明 . 经 过 长 时 间 的 争论 , 这 一 结果 最 终 还 是 被 数学 界 接受 
T, 并 对 数学 研究 方法 产生 了 革命 性 的 影响 (141. 

另 一 方面 , 科学 计算 始终 是 数学 研究 的 重点 和 难点 , 也 是 数学 应 用 的 前 提 . 科 
学 计算 包括 两 类 : 一 类 是 数值 计算 , 例如 求 函数 值 、 方 程 的 数值 解 等 ; 另 一 类 是 符号 
计算 , 又 称 代数 运算 , 这 是 一 种 智能 化 的 计算 , 处 理 的 是 符号 , 符号 可 以 代表 整数 、 
AAR: ERRAN, 也 可 以 代表 多 项 式 、 函 数 , 还 可 以 代表 数学 结构 如 集合 、 群 等 
(137, 138, 141) 

科学 计算 常常 是 一 项 非常 繁琐 的 工作 , 事实 上 , 人 类 很 早 就 意识 到 在 解决 实际 
问题 时 对 于 数学 特别 是 “计算 ” (包括 数值 计算 、 逻 辑 运算 、 符 号 计算 、 图 形 计算 等 ) 
的 极端 重要 性 , 并 致力 于 “计算 ”的 机 械 化 及 计算 机 械 的 发 明 创造 (如 算盘 , 对 数 计 
算 器 、 计 算 尺 、 加 法 机 、Leibnitz 演算 机 、 差 分 机 , 等 等 ). 直到 计算 机 的 出 现 和 发 展 
才 逐 步 解决 了 数值 计算 中 的 困难 . 从 计算 机 发 明 到 现在 六 十 多 年 间 , 用 计算 机 进行 
的 科学 计算 主要 是 数值 计算 , 如 天 气 预 报 、 油 藏 模拟 、 航 天 等 . 

而 用 计算 机 进行 符号 计算 是 数学 和 计算 机 领域 的 一 个 新 的 发 展 方向 ， 长 期 以 
来 , 数学 家 和 计算 机 科学 家 梦想 用 计算 机 代替 人 脑 进行 代数 符号 运算 以 及 数学 的 各 
种 处 理 , 使 数学 走向 “机 械 化 ”的 道路 , 从 而 也 使 计算 机 本 身 更 加 智能 化 . 中 国 著名 
数学 家 吴 文 俊 院 士 首先 提出 的 “ 吴 方 法 ” 为 数学 定理 证 明 在 计算 机 上 的 实现 奠定 了 
理论 基础 156-178), 并 在 几何 定理 机 器 证 明 、 方 程 组 求解 、 微 分 几何 、 理 论 物 理 、 
机 器 人 学 、 计 算 机 图 形 学 等 数学 和 高 科技 领域 相继 获得 了 广泛 的 应 用 991. 

20 世纪 80 年 代 以 来 , 用 计算 机 进行 符号 计算 的 研究 在 国内 外 发 展 非常 迅速 ， 
涉及 的 数学 领域 不 断 地 扩大 , 出 现 了 多 种 符号 运算 方法 、 计 算 程序 和 系统 , 如 符号 
运算 、 符 号 处 理 、 计算 机 代数 等 等 . 这 是 一 个 以 构造 性 数学 为 核心 , 以 计算 机 实现 为 
目标 , 以 实用 算法 为 研究 内 容 , 以 实用 程序 或 软件 为 成 果 的 研究 领域 , 这 个 领域 被 称 
为 计算 机 数学 (computer mathematics), 也 称 为 计算 机 代数 [137, 138, 141), 计算 机 
数学 的 发 展 逐 步 产 生 了 一 些 独 立 的 计算 机 程序 库 , 称 为 计算 机 代数 系统 (computer 
algebra system). 

计算 机 数学 是 数学 研究 领域 的 新 方向 , 是 相对 年 轻 的 学 科 , 研究 文献 散布 在 各 
种 涉及 数学 计算 的 杂志 上 . 目前 这 一 学 科 已 有 专门 的 研究 杂志 , 如 : Journal of Sym- 
bolic Computation (Elsevier Press) 是 发 表 计 算 机 代数 方面 研究 成 果 的 主要 国际 期 
刊 . 还 有 Applied Mathematics and Computation (Elsevier Press), Applicable Alge- 
bra in Engineering 和 Communication and Computing (Springer-Verlag). 除 以 上 杂 
志 外 , 从 大 量 的 会 议论 文集 中 可 以 查阅 到 各 种 计算 机 代数 的 研究 成 果 和 研究 趋势 . 
另外 , 美国 Association for Computing Machinery (简称 ACM) 支持 的 学 术 研讨 会 
International Symposium on Symbolic and Algebraic Computation (ISSAC) 每 年 夏 
天 在 欧洲 和 其 他 国家 或 地 区 举行 , 并 由 Springer 出 版 会 议论 文集 . 在 亚洲 各 国 举办 


ш. 第 1 章 绪 论 


的 Asian Symposium of Technology on Mathematics (ASTM) 和 Asian Symposium 
on Computer Mathematics (ASCM) 也 逐渐 成 为 国内 外 计算 机 数学 工作 者 学 术 交 流 
和 报告 研究 成 果 的 一 个 园地 . 

而 计算 机 数学 的 产品 一 计算 机 代数 系统 (也 称 数学 软件 ) 在 不 断 地 发 展 、 提 高 
和 完善 . 计算 机 代数 系统 为 数学 的 教学 、 研 究 和 应 用 开辟 了 新 天 地 , 既 使 数学 实验 
成 为 可 能 , 又 使 数学 成 果 直 接 为 实际 服务 以 及 使 数学 的 大 众 化 成 为 可 能 . 

根据 计算 机 代数 系统 的 用 途 , 将 其 分 为 两 类 : 专用 系统 和 通用 系统 . 专用 系统 
主要 是 为 解决 物理 和 数学 某 些 分 支 中 的 特殊 问题 而 设计 的 , 专用 系统 在 符号 和 数据 
结构 上 都 适用 于 相应 的 领域 而 且 多 数 是 用 低级 语言 编写 的 , 因此 专业 人 员 使 用 很 方 
便 , 计算 速度 也 较 快 , 它们 在 专业 问题 的 研究 中 起 着 重要 的 作用 ; 通用 系统 具有 多 种 
数据 结构 和 丰富 的 数学 函数 , 应 用 领域 广泛 . 

目前 , 一 部 分 计算 机 代数 系统 发 展 成 为 完整 的 专用 或 通用 的 计算 机 数学 软件 ， 
如 美国 的 Mathematica，Matlab, 加 拿 大 的 Maple 等 1138, 141). 以 及 以 高 小 山 为 首 
席 科学 家 领导 研发 的 独立 、 完 整 、 高 效 、 具 有 自主 知识 产权 的 数学 机 械 化 平台 
MMP (40), 它们 为 科学 研究 、 工 程 应 用 、 教 学 中 的 计算 和 推理 提供 了 一 个 强 有 力 
的 应 用 和 开发 平台 .这 些 通用 计算 机 代数 系统 大 都 是 基于 C 或 者 C++ 语言 研发 
的 . 

其 中 , Maple 系统 的 研发 始 于 20 世纪 80 年 代 . 1980 年 9 H, 加 拿 大 Waterloo 
大 学 的 符号 计算 机 研究 小 组 成 立 , 开始 了 符号 计算 在 计算 机 上 实现 的 研究 项 目 , 数 
学 软件 Maple 能 是 这 个 项 目的 产品 . Maple 的 第 一 个 商业 版 本 是 1985 年 出 版 的 . 随 
后 几经 更 新 , 到 1992 年 , Windows 系统 下 的 Maple 2 面世 后 , Maple 被 广泛 地 使 用 ， 
得 到 越 来 越 多 的 用 户 . 特别 是 1994 4E, Maple 3 出 版 后 , 兴起 了 Maple Th. 1996 年 初 ， 
Maple 4 问世 , 1998 年 初 , Maple 5 正式 发 行 . 目前 广泛 流行 的 是 2006 年 面市 的 Maple 
11. 2008 年 , 又 推出 了 Maple 12 961, 当然 , 这 仍 是 一 个 正在 研究 中 的 项 目 . 

Maple 中 有 3000 多 个 用 于 科学 计算 的 函数 , 是 一 个 具有 强大 符号 运算 能 力 、 数 
值 计 算 能 力 、 图 形 处 理 能 力 的 交互 式 计算 机 代数 系统 . 它 可 以 借助 键盘 和 显示 器 代 
替 原 来 的 笔 和 纸 进 行 各 种 科学 计算 、 数 学 推理 、 猜 想 的 证 明 以 及 智能 化 文字 处 理 . 
Maple 这 个 超 强 科学 计算 工具 已 经 被 广泛 用 于 数学 、 密 码 学 、 控 制 论 、 物 理学 、 生 
物 学 、 商 学 、 经 济 学 和 工程 技术 , 它 不 仅 适合 数学 家 、 物 理学 家 、 工 程 师 , 还 适合 化 
学 家 、 生 物 学 家 和 社会 学 家 , 也 是 众多 高 等 院 校 科 学 和 工程 实验 室 的 标准 科研 与 教 
学 工具 , 它 的 用 户 遍及 全 球 03714] 总 之 , 它 适合 于 所 有 需要 科学 计算 的 人 . 

本 书 关 于 积分 方程 求解 的 机 械 化 算法 研究 正 是 基于 Maple 平 台 实现 的 . 


1.3.3 ”数学 机 械 化 
计算 机 数学 研究 领域 一 个 重要 内 容 是 数学 机 械 化 (mathematics mechanization). 
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正如 匡 文俊 院士 所 言 : 不 论 是 机 器 代替 体力 劳动 , 或 是 计算 机 代替 某 种 脑力 劳动 , 其 
所 以 成 为 可 能 , 关键 在 于 所 需 代替 的 劳动 已 经 “机 械 化 、 所 谓 机 械 化 , 简单 地 说 ， 
就 是 “刻板 化 "或 “规格 化 ” . 数学 问题 的 机 械 化 , 要 求 在 运算 或 证 明 过 程 中 , 每 前 
进一步 之 后 , 都 有 一 个 确定 的 、 必 须 选 择 的 下 一 步 , 这 样 沿 着 一 条 有 规律 的 、 刻 板 的 
道路 , 一 直达 到 结论 0761. 

回顾 数学 发 展 史 , 主要 有 两 种 思想 : 一 是 公理 化 思想 , 另 一 是 机 械 化 思想 ， 前 
者 源 于 古 希腊 , 后 者 源 于 中 国 古 代数 学 , 这 两 种 思想 对 数学 发 展 都 曾 起 到 巨大 作用 
189). 据 此 , 可 以 简单 地 将 数学 研究 分 为 两 类 : 存在 性 数学 与 构造 性 数学 . 存在 性 数 
学 注重 研究 数学 对 象 的 存在 性 以 及 它们 的 性 质 和 其 间 相互 关系 , 它 是 近代 数学 发 展 
的 主流 (038. 构造 性 数学 退 居 其 次 是 有 特定 历史 根源 的 , 即使 很 基本 的 数学 对 象 
(例如 4 次 代数 方程 的 根 式 解 ), 它们 的 构造 也 是 非常 困难 和 复杂 的 . 传统 的 纸 笔 演 
算 需 要 消耗 数学 工作 者 大 量 的 时 间 和 精力 , 因而 使 其 无 法 从 事 更 具 创造 性 的 工作 . 
随 着 数学 的 纵深 发 展 , 与 之 相应 的 推理 和 计算 也 愈 来 愈 复杂 , 而 且 其 中 的 大 量 计算 
又 机 械 乏 味 .在 这 种 情况 下 , 数学 家 就 不 得 不 有 所 取 合 , 放弃 对 数学 对 象 的 构造 性 
而 去 研究 它们 的 存在 性 . 

但 是 , 构造 性 为 数学 的 应 用 提供 支撑 , 也 是 数学 机 械 化 的 基础 . 这 并 非 要 低估 
存在 性 数学 的 重要 价值 和 意义 , 但 过 分 追求 数学 的 理论 发 展 与 优美 而 不 顾 其 实用 性 
MPA RRI. 对 于 数学 机 械 化 而 言 , 只 证 明 数学 问题 解 的 存在 性 是 远 远 不 够 的 , 必 
须 有 具体 、 确 定 的 算法 把 解构 造 出 来 , 而 当 解 的 具体 形式 构造 出 来 后 , 其 存在 性 也 
就 不 证 自明 了 . 就 此 而 言 , 构造 性 数学 比 存在 性 数学 要 困难 得 多 . 

事实 上 , 数学 的 存在 性 与 构造 性 之 间 的 争论 由 来 已 久 , 中 国 古 代数 学 的 发 展 向 
来 以 构造 性 为 特色 , 重 方法 和 实用 , 这 种 具有 中 国 特色 的 构造 性 数学 正在 当代 数学 
家 吴 文俊 院士 的 倡导 下 走向 复兴 (39, 117, 178), 

实现 数学 的 机 械 化 是 实现 脑力 劳动 机 械 化 的 重要 理论 基础 . 数学 为 其 他 学 科 提 
供 了 定量 化 描述 问题 的 语言 与 解决 问题 的 有 效 方法 , 是 科学 技术 的 重要 理论 依据 . 
正 是 由 于 数学 的 这 种 基础 性 , 每 个 时 代 都 有 与 之 相 适应 的 数学 . 为 利用 计算 机 的 强 
大 计算 能 力 , 数学 的 很 大 一 部 分 内 容 正 在 转变 为 计算 机 可 以 接受 的 语言 . 具体 地 讲 
就 是 数学 的 离散 化 、 算 法 化 和 软件 化 (99, 40, 170). 

正 是 在 这 样 的 背景 下 , 吴 文 俊 院士 在 20 世纪 70 年 代 未 提出 了 数学 机 械 化 的 设 
38, 可 以 概括 为 “数学 机 械 化 纲领 ”401: 

(1) 在 数学 的 各 个 学 科 选 择 适当 的 范围 实现 机 械 化 , 推动 数学 发 展 与 脑力 劳动 
机 械 化 ; 

(2) 应 用 数学 机 械 化 方法 解决 相关 高 科技 领域 的 关键 基础 理论 问题 . 

现 阶段 数学 机 械 化 研究 主要 关注 的 是 科学 研究 与 高 技术 应 用 中 经 常 遇 到 的 两 
类 问题 : 方程 求解 和 自动 推理 . 事实 上 , 方程 求解 已 经 成 为 当今 诸多 重要 科学 领域 
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与 高 新 技术 研究 的 核心 问题 . 数学 机 械 化 方法 的 核心 是 方程 求解 的 “ 吴 方 法 ”, 这 
一 方法 不 仅 适 用 于 代数 方程 , 而 且 适 用 于 微分 方程 、 差 分 方程 、 不 等 式 系统 等 . 

简单 地 说 , 数学 机 械 化 的 基本 内 容 主要 有 两 方面 : 一 方面 , 将 传统 数学 中 可 以 
算法 化 求解 、 求 证 的 问题 利用 计算 机 及 数学 软件 完成 或 实现 ; 另 一 方面 ， 实现 数 
学 机 械 化 首先 要 将 问题 转化 为 可 算法 化 问题 , 然后 按照 MAP 思想 , 即 Model (Bt 
型 )+Algorithm (算法 )+Program (程序 ), 确定 正确 的 具有 操作 性 的 算法 , 再 选择 适 
当 的 平台 设计 相应 的 计算 机 程序 实现 . 也 就 是 : 

问题 一 数学 问题 一 算法 一 程序 一 计算 机 实现 

因此 , 数学 机 械 化 的 基础 是 算法 设计 和 程序 设计 . 所 谓 算法 设计 , 就 是 依据 已 有 
的 或 者 发 展 新 的 数学 理论 , 提出 有 效 的 方法 , 将 这 些 方法 描述 为 适合 实施 的 算法 , 并 
证 明 所 设计 算法 的 正确 性 和 终止 性 . 算法 设计 的 基础 是 构造 性 数学 , 辅 之 以 逻辑 与 
算法 理论 . 这 里 , 重点 是 数学 对 象 的 构造 而 非 存在 性 证 明 , 并 且 数 学 的 理论 和 方法 
需要 更 加 严密 , 而 逻辑 学 与 算法 理论 则 有 助 于 将 这 些 数学 理论 和 方法 形式 化 和 算法 
化 


数学 机 械 化 理论 和 方法 的 建立 , 是 深层 次 的 知识 创新 , 是 适应 信息 时 代 产 生 的 
基础 研究 领域 , 机 械 化 数学 是 数学 的 一 部 分 . 随 着 计算 机 大 规模 的 渗透 人 们 的 生活 ， 
自然 也 改变 了 人 们 的 学 习 、 工 作 和 从 事 研究 的 方式 , 一 张 纸 、 一 支 笔 做 数学 的 情景 
基本 上 已 成 为 历史 ， 机 械 化 数学 的 努力 目标 就 是 要 将 数学 的 各 个 领域 一 部 分 一 部 
分 的 机 械 化 , 从 而 使 传统 数学 的 许多 方面 由 于 有 了 数学 机 械 化 而 面貌 一 新 . 

在 吴 文俊 院士 开创 性 工作 的 影响 下 , 经 过 国内 外 专家 、 学 者 近 三 十 年 的 努力 ， 
已 经 成 功 地 将 吴 方 法 用 于 解决 力学 0721, 物理 0163、 化 学 Q70 等 传统 领域 及 机 
器 人 01661、 几 何 造型 176)、 连 杆 设计 1165. 176) 等 高 科技 的 问题 .“ 吴 方法 " 还 被 
用 于 多 项 式 因 式 分 解 136.1381, 发 现 微分 系统 新 的 极限 环 (128, 132 84. 求解 微分 
方程 的 行 波 解 与 孤立 子 解 (29. 69, 70, 731. 理论 物理 (115, 116 几何 造型 中 的 曲面 
形式 转换 问题 016.40. 逻辑 公式 的 证 明 153), 计算 机 视觉 59 181, 连 杆 设计 问 
题 98:40), 智能 CAD 24, 组 合 恒等式 自动 证 明 (8), 等 , 逐渐 形成 了 具有 中 国 特 
色 的 数学 机 械 化 和 自动 化 推理 理论 , 不 仅 成 功 应 用 于 一 些 相关 科学 分 支 , 且 成 功 地 
解决 了 一 系列 高 新 技术 领域 中 的 关键 基础 理论 问题 , 获得 了 国内 外 学 术 界 的 高 度 称 
赞 和 广泛 重视 . 

在 机 器 证 明 方向 , 吴 文俊 提出 的 用 计算 机 证 明 几何 定理 的 方法 (国际 上 称 为 “ 吴 
方法 "), 首次 实现 了 几何 定理 高 效 的 自动 证 明 , 显现 了 无 比 的 优越 性 . 吴 文 俊 院士 的 
工作 被 称 为 自动 推理 的 先驱 性 工作 , 并 于 1997 年 获得 “Herbrand 自动 推理 杰出 成 
Жж”. 

众所周知 , AY JUST, 代数 几何 是 引人入胜 的 数学 分 支 , 它们 不 但 在 理论 的 发 展 
长 河中 考验 了 一 大 批 杰出 的 数学 家 , 在 许多 工程 应 用 中 也 起 到 了 不 可 替代 的 作用 . 
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代数 几何 中 , 在 等 价 的 意义 下 做 分 类 , 是 非常 重要 旦 基本 的 问题 . 利用 “ 吴 方 法 ", 在 
一 维 情形 下 , 用 机 械 化 数学 的 方法 , 做 出 了 同 构 意义 下 的 分 类 处 理 , 是 值得 继续 扩 
展 成 果 的 方向 55. 其 后 , 张 景 中 、 周 威 青 、 高 小 山 等 人 又 提出 了 基于 几何 不 变量 
的 “ 消 点 法 ”, 用 吴 方 法 给 出 了 超越 函数 的 证 明 算法 , 并 给 出 了 Euclid, Minkowski, 
Laboshevski, Riemann 等 九 种 几何 的 分 类 [20, 21, 22, 35, 36, 37, 23, 24, 207), 张 景 
中 、 杨 路 、 高 小 山 、 周 咸 青 提出 了 几何 定理 机 器 可 读 性 证 明 1206. 193, 194, 209) 李 洪 
波 等 人 将 Clifford 代数 与 重要 的 E.Cartan 外 微分 运算 相 结合 , 提出 了 基于 Cliford 代 
数 与 吴 方 法 的 向 量 算法 , 形成 了 局 部 微分 几何 定理 的 机 器 证 明 的 新 算法 (691, 利用 这 
一 结果 可 以 给 出 陈省身 关于 曲面 论 中 一 个 十 分 深刻 的 定理 的 非常 简单 的 证 明 , 王 东 
明 等 人 对 这 一 方法 作 了 进一步 的 改进 , 使 得 这 一 算法 不 仅 可 以 证 明 几 何 定理 , 还 可 以 
证 明 微分 几何 定理 (127, 133, 130, 131, 134, 林 东 岱 和 刘 卓 军 将 吴 方 法 推广 至 有 限 
几何 (79); 杨 路 、 曾 振 柄 、 夏 壁 灿 等 人 研发 的 用 于 不 等 式 自动 推 证 的 BOTTEMA 以 
及 在 此 基础 上 改进 研发 的 DISCOVERER 120, 189, 190, 192, 191). 陈 永川 等 人 关于 
组 合 数学 的 机 器 证 明 (181; 吴 尽 昭 等 人 的 关于 逻辑 及 非 逻辑 定理 的 机 器 证 明 (193; 
等 等 . 
在 非 线性 方程 组 求解 方向 上 , 吴 文 俊 院士 提出 的 “ 吴 方 法 "(也 称 Ritt-Wu 方法 ) 
与 结 式 消 元 法 、Gr5bner 基 消 元 法 同 为 国际 通用 的 三 大 最 完整 的 消 元 算法 (1301, 
这 是 数学 机 械 化 的 核心 . 中 国 很 多 学 者 在 这 一 领域 取得 了 出 色 的 成 果 . 杨 路 、 候 晓 
荣 、 曾 振 柄 提出 了 对 任意 次 数 的 实 系数 多 项 式 建立 完全 判别 系统 的 一 个 通用 算法 
(84, 188), 使 这 个 实 代数 的 问题 得 到 圆满 的 回答 ; 张 景 中 、 梁 松 新 解决 了 复 系数 多 项 
式 完全 判别 系统 的 问题 208); 陆 征 一 等 人 提出 了 多 项 式 实 根 分 离 算法 并 将 其 应 用 
于 微分 方程 小 扰动 极限 环 的 构造 84; 王 东 明基 于 吴 方 法 研发 了 用 于 多 项 式 消 元 和 
分 解 的 应 用 软件 Epsilon (1351; 等 等 
非 线性 微分 方程 的 解 , 不 仅仅 是 微分 方程 理论 中 关心 的 重要 问题 , 同时 它 还 具 
有 十 分 明显 的 物理 应 用 背景 , 一 些 著名 方程 , 如 力学 , 固态 物理 、 等 离子 体 物理 和 化 
学 物理 等 领域 中 出 现 的 一 类 非 线性 波动 方程 , 需要 求 物 理 上 有 兴趣 的 钟 状 、 纽 结 状 
的 孤立 波 解 . 国内 外 许多 专家 、 学 者 在 此 领域 作出 了 卓越 成 就 , 如 Parkes 小 组 基于 
Mathematica 的 双 曲 正切 法 软件 包 ATFM, Hereman 小 组 的 较 完整 的 求 非 线 性 演化 
方程 的 软件 包 PDESS (1821, 等 等 . 国内 代表 性 的 成 果 有 李 志 滤 小 组 关于 非 线性 行 波 
解 、 孤 立 子 解 的 系列 成 果 169, 70, 71, 72, 73, 79, 210, 182, 199], 张 鸿 庆 小 组 提出 的 
CD 对 解 分 法 以 及 系列 成 果 [17, 19, 62, 64, 87, 97, 122, 180, 187, 202, 205, 213), жй 
1115, 110, ру 129.30, 31 等 小 组 的 研究 成 果 . 目前 , 已 经 应 用 吴 符 征 列 方法 解 
决 了 几 十 个 非 线性 波动 方程 和 非 线性 发 展 方程 , 所 得 结果 除 涵盖 已 知 解 外 , 还 发 现 
了 许多 新 解 . 李子 明 、M.Singer、 吴 敏 与 郑 大 彬 关于 计算 Laurent-Ore 模 的 一 阶 子 模 
的 递归 方法 的 研究 1681, 开启 了 关于 多 变量 函数 机 械 化 处 理 的 算法 研究 , 并 获 国际 
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计算 机 科学 协会 (ACM) 符号 与 代数 计算 专业 委员 会 颁发 的 2006 年 度 “ISSAC 杰 
出 论文 奖 ”. 这 是 中 国学 者 首次 获得 该 项 奖励 . 

总 之 , 吴 文 俊 院 士 所 倡导 的 数学 机 械 化 研究 , 一 方面 继承 了 古代 中 国 数学 思想 
的 精华 , 另 一 方面 适应 了 现代 科学 技术 的 发 展 . 随 着 时 间 的 推移 、 工 作 的 积累 和 方 
向 的 拓展 , 数学 机 械 化 必 将 为 中 国 乃 至 世界 数学 的 发 展 做 出 积极 的 贡献 , 也 必 将 使 
数学 更 好 地 为 科学 技术 服务 , 尤其 是 为 高 科技 提供 理论 武器 和 有 效 的 工具 . 


前 文 已 经 述 及 , 积分 方程 求解 是 积分 方程 研究 的 重点 和 难点 . 但 是 , 积分 方程 机 
械 化 求解 的 文献 尚 不 多 见 . 基于 上 述 种 种 认识 和 思考 , А 2004 年 始 , 本 书 作者 以 国 
际 通用 计算 机 代数 系统 Maple 为 平台 4, 在 诸多 专家 和 学 者 研究 工作 的 基础 上 ， 
利用 数学 机 械 化 的 思想 和 方法 研究 了 积分 方程 求解 以 及 机 械 化 算法 设计 等 问题 , 取 
得 了 一 系列 成 果 (144, 145, 146, 147, 148, 149, 150|， 本 书 的 核心 内 容 正 是 这 些 研究 
工作 的 整理 与 总 结 . 

虽然 , 这 些 研究 显得 有 点 稚嫩 , 但 窃 想 这 将 为 积分 方程 求解 研究 注入 新 的 活力 . 
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Fredholm 积分 方程 是 一 类 经 典 且 应 用 广泛 的 积分 方程 , 关于 该 类 积分 方程 的 求 
解 研究 已 经 持续 了 一 百 多 年 100). 尽管 如 此 , 到 目前 为 止 , 关于 第 二 种 Fredholm 积分 
方程 (1.11) 已 经 建立 了 系统 的 理论 ( 即 Fredholm 理论 ), 而 对 于 第 一 种 Fredholm 积 
分 方程 (1.10) 到 现在 尚未 建立 起 系统 的 理论 . 因此 , 本 章 重 点 关注 第 二 种 Fredholm 
积分 方程 的 机 械 化 求解 问题 . 

本 章 主要 内 容 包括 3 节 , 第 1 节 是 Fredholm 积分 方程 的 求解 及 其 机 械 化 算法 
研究 , 第 2 节 , 我 们 探讨 了 Fredholm 积分 方程 组 的 求解 及 其 机 械 化 算法 , 并 分 别 通 
过 大 基 的 算 例 展示 了 机 械 化 求解 Fredholm 积分 方程 (组 ) 的 正确 性 以 及 高 效 性 . 最 
后 , 第 3 节 , 给 出 了 本 章 的 结论 及 进一步 的 讨论 . 


2.1 Fredholm 积分 方程 求解 


第 一 章 1.2 节 已 经 简单 归纳 了 Fredholm 积分 方程 求解 方法 , 在 此 , 不 再 更 述 . 
除了 前 已 述 及 的 那些 方法 外 , 求解 第 二 种 Fredholm 积分 方程 还 有 一 种 方法 , ШЕ 
核 (resolvent) 求解 法 (01. 2121, 这 是 一 种 经 典 的 、 由 Fredholm 建立 的 求解 方法 , 并 
延 用 至 今 . 

但 是 , 瑰 解 核 求解 法 耗 时 、 费 力 又 易 出 错 , 更 重要 的 是 利用 列 解 核 方法 求解 积 
分 方程 过 程 中 常常 出 现 大 计算 量 的 十 分 复杂 且 精 确 的 代数 与 微分 、 积 分 等 符号 计 
算 问 题 , 所 以 , 借助 计算 机 的 大 容量 、 高 速度 的 特点 , 用 精确 的 符号 计算 , 机 械 化 地 
实现 积分 方程 求解 显得 重要 而 迫切 . 基于 这 种 考虑 , 本 节 主 要 目的 是 建立 基于 计算 
机 代数 系统 Maple 的 求解 第 二 种 Fredholm 积分 方程 的 机 械 化 算法 , 并 通过 具体 算 例 
展示 机 械 化 求解 积分 方程 的 优势 . 
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首先 , 我 们 重 述 耶 解 核 求解 法 , 由 于 该 方法 对 建立 机 械 化 算法 非常 重要 , 因此 将 
详 述 该 算法 . 
考虑 如 下 形式 的 第 二 种 Fredholm 积分 方程 : 


z(s) = af’ k(s,t)x(t)dt+y(s), a<s,t<b. (2.1) 
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其 中 , 和 #0 是 一 个 参数 (一 般 情况 下 可 以 是 复数 ), 通常 用 于 描述 特定 的 物理 基 , 自 
由 项 y(s) € L?[a, b] BHI, k(s,t) € L?[a,5] x [a,b] 为 积分 核 , 而 z(s) 是 要 求解 的 函 
x 


定理 2.1: y(s) € L?[a, b], k(s,t) € L?(a, b] x fo, 如 是 连续 函数 , H d(d) # 0, 则 
(2.1) 存在 唯一 的 连续 解 : 


т(в) = y(s) + xf ky(s,t)y(t)dt, a<s,t<b, (2.2) 
其 中 , ky (s t) PARIR: 
ka(s,t) = ЭБ, (23) 


这 里 , а(А) 称 为 k(s,t) 的 Fredholm 行列 式 (Fredholm determinant), D(s,t) 称 为 
Fred- holm 子 式 (Fredholm minor): 


49 = 3 C ens, Q4) 
CCD" 
Dy(s,t) = У LN An (st), (2.5) 
n=0 ~ 
其 中 ， 
Ao = k(s,t), 
K(s,t) -- k(s,8n) 
sie (2.6) 
wef sf k(s1,t) k(s1, Sn) didis; 
E. l^ ven uss cue 
k(sn,t) +++ k(sn, за) 
Bo=1, 
k(s1,81) +-  k(s1, Sn) 
> b| k(s2,51) <- k(82,8n) (2.7) 
Ba= |... азү--4в„ (п=1,2,-). 


k(5n,31) +++ (а, ва) 
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定理 2.1 的 证 明 过 程 从 略 , 有 兴趣 者 可 参看 文献 [212]P.31-35. 


BRK ky(s,t) 对 于 除 dO) 的 零点 外 的 所 有 值 是 关于 和 的 一 个 解析 函数 . 注 
意 到 式 (2.4) 中 第 一 项 (RII n = 0) 为 1, 故 d) 不 恒 为 0, 又 因为 其 为 一 整 函数 , 故 
其 零点 为 一 有 限 的 或 可 列 的 集合 , 这 些 零点 恰 为 核 k(s,t) 的 特征 值 . 
但 对 于 大 多 数 问题 来 说 , 公式 (2.6) 并 不 便于 应 用 . 我 们 可 建立 下 述 迭 代 关 系 : 


An(8,t) = Bnk(s, t) 


一 n f k(s, u)As- 


1(u, аи, 


В, = f? An—a(t, t)dt. 


(2.8) 


为 了 更 清楚 地 理解 定理 2.1 所 描述 的 算法 , 下 面 给 出 一 个 简单 的 例子 , 通过 该 
例 , 我 们 也 可 以 看 到 应 用 瑰 解 核 方法 求解 第 二 种 Fredholm 方程 时 的 计算 复杂 性 . 


例 2.1: 解 方程 : 


1 
дв) =s+ [ (+t zat, (0€ s £«1). 


这 里 ， 
(в) = 8, 


kK(s,t)=s+t, a—0, 


根据 (2.4), 我 们 可 得 Fredholm 行列 式 d(A): 


аА) 21- fo ki enda [| 


1 1 1 

1 
ALL 
о Jo JO 
1 1 1 
=1- 2+4 f f 
1 1 pl 

1 
БЕА 
о Јо JO 


b=1, А=1. 
k(s,s) k(s,t) 
k(t,s) k(t, t) 
k(ss) k(s,t) k(s,u) 
k(ts) k(t,t) k(t,u) |dsdtdu+--- 
k(u,s) k(ut) k(u,u) 
2s s+t 
dsdt 
s+t 2t 
2s stt stu 
s+t 2t t+u |dsdtdu+--- 


stu ttu 2u 


(2.9) 
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而 由 公式 (2.5) 可 得 Fredholm FA DA(s,t) Ж: 
k(st) k(s, 
Dale.) k.0- f See? 
о | k(u) Еши) 
k(st) k(su) k(s,v) 


aff k(uf) k(u,u) k(u,v) | dudv +-+- 
k(v,t) k(vu) k(vv) 


st+t stu s+v 
ath ff tru 2u uty | dudv+--- 


vtt utv 2v 


-ea- ff s+t stu 
0 
= із + ЕК1 +з 
从 而 , 由 公式 (2.2), 我 们 可 得 方程 (2.9) 的 唯一 连续 解 为 : 
st) 


Е ! DX(s.t) із ++ РУХА 
х(в) = 3 十 CO) -tdt = ШЕ чети. 一 6s — 4. 


utt 2u 


通过 这 个 例子 , 我 们 可 以 看 到 , 即使 对 于 k(s,t) = s + t 这样 简单 的 情形 , 其 求 
解 过 程 依然 繁琐 且 计 算 量 很 大 , 可 以 想象 对 于 更 复杂 的 情形 , 利用 手工 求解 的 复杂 
度 更 是 无 法 估量 所 以 , 利用 计算 机 的 大 容量 、 高 速度 、 可 进行 精确 符号 计算 的 特 
点 , 在 计算 机 代数 系统 下 建立 机 械 化 算法 , 实现 积分 方程 自动 求解 显得 重要 而 有 意 
A. 
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本 节 , 借助 计算 机 代数 系统 Maple 建立 利用 耶 解 核 方法 求解 第 二 种 Fredholm R 
分 方程 (2.1) 的 机 械 化 算法 fredholmproc. 显然 , 公式 (2.3) 一 (2.8) 以 及 解 的 表达 式 
(2.2) 为 机 械 化 算法 的 建立 莫 定 了 基础 , 这 些 公式 均 可 以 很 方便 地 在 Maple 下 进行 算 
法 设计 和 程序 设计 . 

为 了 进一步 理解 Fredholm 积分 方程 的 机 械 化 求解 算法 设计 的 思想 , 首先 给 出 
机 械 化 算法 设计 的 流程 图 (参见 图 2.1). 

当 利用 算法 fredholmproc 求解 方程 (2.1) 时 , 所 要 做 的 全 部 事情 就 是 在 Maple 
中 输入 描述 方程 的 信息 , 然后 机 械 化 算法 fredholmproc 将 给 出 方程 (2.1) 的 解 . 另 一 
方面 , 考虑 到 数学 推导 过 程 的 可 读 性 , 我 们 利用 1print 和 print 设计 了 相应 的 求解 
过 程 输出 语句 . 通过 下 节 的 例子 , 人 们 可 以 看 到 , 利用 fredholmproc 求解 方程 (2.1) 
时 所 得 到 的 结果 与 我 们 用 笔 和 纸 求 解 方程 时 的 过 程 几 乎 是 一 样 的 . 
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算法 变量 初始 化 : 求解 关于 4 的 方程 
P0175 D-0,4-0; | $ ат 0; 并 输出 结果 
[n 


HS Жр 


Y 
提取 方程 的 全 部 信息 : 构造 积分 行列 式 SBME: 
А, ks, д, x8, уз), (а, 8] PERF 2.6 RI A, k(s.0* Did 
ER ON ЕЕ 


将 输入 的 Fredholm 方程 根据 式 子 (22) 求 解 д), 
转换 为 标准 形式 并 输出 结果 


构造 积分 行列 式 
根据 式 ( 27 求解 


图 2.1 Fredholm 积分 方程 机 械 化 求解 流程 图 


为 了 更 加 清楚 地 理解 积分 方程 (2.1) 求解 的 机 械 化 算法 设计 过 程 , 下 面 , 我 们 列 
出 算法 fredholmproc 的 源 代码 : 


fredholmproc:=proc (expr) 

local Expr,parme,i,j,lambd,K,N,xfunction,yfunction,bounds, 
result,d lamb,D.lamb,Tempi,KdetT,Temp,Xkey,KdetT1; 

result:-0; 

N:-5; 

Expr:-Union(expr); 

parme:-parmeint(Expr); 
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lambd:=parme [1] ; 
K:-unapply(parne[2],s,t); 
xfunction:-parme[3]; 
yfunction:-parme[4]; 
bounds : =parme [5]; 
yfunction:-unapply(yfunction,s); 
d_lamb:=1; 
for i from 1 to N do 
KdetT:-Kdet(i,K); 
Temp:=KdetT[1] ; 
for j from 1 to i do 
Temp:=int (Temp,s[j]=bounds[1] . . bounds [2]); 
end do; 
d.lamb:zd lamb*lambd^i*1/i!*(-1)^i*Temp; 
KdetT1:=Kdet (i+1,K) ; 
Temp1:=KdetT1 [2] ; 
if i=1 then 
D_lamb: =Kdet (2,K) [2]; 
else 
for j from 3 to i*1 do 
Tempi:-int(Tempi,s[j]-bounds[1]..bounds[2]); 
end do; 
D-lamb:-D.lamb*lambd^(i-1)*1/(i-1) !*(-1)^ (i-1)*Temp1; 
fi; 
end do; 
KKK:7[solve(d.lamb,lambda)]; 
D.lamb:-simplify(D.lamb); 
lprint('Here, the parameters of the equation are as:'); 
print (’y(s)’=yfunction(s) ,’k(s,t)’=K(s,t)); 
lprint (‘When parameter lambda satisfy with: ‘); 
if not has(d lamb,lambda) then 
print(lambda-arbitrary constant); 
fi; 
if has(d lamb,lambda) then 
for i from 1 to nops(KKK) do 
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print (lambda<>kKK [i] ) ; 
od; 
fi; 
lprint('Here, the parameters of the equation are as:‘); 
print (’y(s) ’=yfunction(s) ,’k(s,t)’=K(s,t)); 
lprint('Then,the Fredholm determinant of the kernel is 
as:*); 
print('d(lambda)'-d lamb); 
lprint('And the Fredholm minor is:‘); 
print (’D [lambda] (s,t) ’=subs(s[1]=s,s[2]=t,D1amb)) ; 
Хкеу : "normal (yfunction(s[1])+lambd*int (D lamb/d lamb 
*yfunction(s[2]), 
s[2]=bounds [1] . .bounds[2])) ; 
lprint('The solution of the equation is as follows:‘); 
print (’x(s) ’=subs(s[1]=s,Xkey)); 
end proc: 


其 中 , 参数 expr 表 示 要 求解 的 第 二 种 Fredholm 积分 方程 的 信息 . 例如 , 对 于 积 
分 方程 (2.1) 而 言 , 我 们 在 Maple 下 只 需 输入 下 述 命令 即 可 : 


expr:=x(s)=lambda*int (k(s,t)*x(t) ,t=a..b)+y(s); 
fredholmproc(expr) ; 


然后 运行 fredholmproc, 我 们 就 可 以 得 到 方程 的 解 . 
另外 , 在 主 程序 fredholmproc 中 有 两 个 子 程序 Union 和 parmeint. 算法 Union 是 
将 方程 (2.1) 转换 为 : 


z(s)— af k(s, t)a(t)dt — y(s) = 0 (2.10) 


的 标准 形式 . 事实 上 , 积分 方程 求解 机 械 化 算法 设计 针对 的 是 一 般 形式 的 或 者 称 之 
为 标准 形式 的 方程 , 算法 Union 所 做 的 正 是 将 输入 的 方程 转化 为 标准 形式 , 即 方程 
(210) 之 形式 . 而 对 于 刻 划 方程 的 信息 的 提取 是 机 械 化 求解 中 至 关 重 要 的 一 个 步 又 ， 
通过 算法 parmeint 可 以 看 出 , 信息 的 提取 其 实 是 将 方程 的 各 个 部 分 分 解 出 来 . 对 于 
积分 方程 而 言 , 这 些 部 分 包括 参数 А, KBR k(s,t), 函数 y(s), 积分 限 [0,5] 以 及 待 
求解 函数 z(s). 算法 parmeint 的 主要 功能 就 是 提取 方程 (2.10) 中 的 上 述 信息 . 

作为 例子 , 我 们 将 算法 parmeint 的 源 代码 列 示 如 下 : 
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parmeint:-proc(expr) 
local hexpr,temp,i,k,xfunction,yfunction,lambda,TEMP, 
bounds,x int; 
hexpr [1] :=1hs (expr) ; 
hexpr [2] :=rhs (expr) ; 
temp:=[]; 
TEMP :=[]; 
yfunction:=0; 
for i from 1 to 2 do 
if hexpr[i]<>0 then 
if type(hexpr[i],‘+‘) and epxr[i]<>0 then 
temp:= [op(temp) ,op(hexpr[i])]; 
else 
temp:=[op(temp) ,hexpr[i]]; 
fi; 
fi; 
od; 
for i from 1 to nops(temp) do 
if has(temp[i], ‘int‘) then 
k:=temp[i]; 
elif has(temp[i],x) then 
xfunction:-temp[i]; 
else 
yfunction:-yfunction*temp[i] 
fi; 
od; 
if type(k,‘*‘) then 
lambda: =convert ([seq(op(i,k) ,i=1..nops(k)-1)],‘**); 
k:-op(nops(k),k); 
else 
lambda:-1; k:-k; 
fi; 
temp:=[op(op(1,k))]; 
bounds :=[op(op(2,op(2,k)))]; 
for i from 1 to nops(temp) do 


21 Fredholm 积分 方程 求解 2275 


if has(temp[i],x) then 
x.int:-temp[il; 
else 
TEMP :=[op(TEMP) , temp [i]]; 
fi; 
od; 
k:=convert (TEMP, ***); 
return (-lambda, k, xfunction, -yfunction, bounds); 
end: 


算法 parmeint 的 设计 思想 在 积分 方程 求解 机 械 化 研究 中 具有 普 适 性 , 不 仅 适 用 
于 Fredholm 积分 方程 , 也 适用 于 第 三 章 要 研究 的 Volterra 积分 方程 . 

另外 , 需要 指出 的 是 , 本 书 所 有 程序 均 在 IBM-R50e( 奔 腾 1.60GHz, 512M 内 存 ) 
笔记 本 电脑 中 运行 通过 , 所 用 Maple 为 Version 11.0. 
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本 节 , 我 们 将 通过 下 述 几 个 例子 展示 算法 fredholmproc 的 高 效 性 与 快捷 性 . 


例 2.2: 首先 考虑 如 下 Fredholm 积分 方程 的 求解: 
2(8) = s+ 和 [ача (2.11) 
0 


在 Maple 下 , 我 们 需要 输入 下 述 命令 : 


expri:-x(s)-s*lambda*int((4*s*t-s^2)*x(t),t-0..1); 
fredholmproc(expr1) ; 


然后 , 运行 机 械 化 算法 fredholmproc 即 可 得 到 下 述 求解 过 程 : 
Here, the parameters of the equation are as: 
y(s) = s, k(s,t) = 4st — s? 
When parameter lambda satisfy with: 
AZ9-3V/7, AF9-3V7 
The Fredholm determinant of the kernel is as: 


are 1 2 
40) =1-A+ А 
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and the Fredholm minor is: 


4 
Dy(s.f) = 4st- $ - a SAst+ SAS - 248 


So, we can get the solution of the equation as: 


_3s(-2A-6+3As) 


дз) = — eae 


在 Maple 下 , 利用 计时 命令 time 可 以 获知 求解 例 2.2 的 时 间 仅 为 0.201 Ж. 由 此 ， 
对 机 械 化 算法 fredholmproc 求 解 积 分 方程 的 快捷 性 可 罕 一 班 

另外 , 需要 说 明 的 是 , 从 本 例 可 以 看 到 , 机 械 化 求解 积分 方程 的 过 程 即 我 们 所 设 
计 的 可 读 性 的 输出 语句 全 部 用 英语 表述 , 主要 原因 是 在 Maple 下 虽然 可 以 输入 汉语 ， 
但 程序 运行 时 有 时 会 出 现 乱码 . 这 一 求解 过 程 的 英语 表述 习惯 贯穿 全 文 . 


Bl 2.3: 求解 积分 核 为 有 理 函 数 的 方程: 


11 十 8 十 82 
C 
2(в) = $ +f 241 x(t) dt. (2.12) 


输入 命令 : 


expr2:-x(s)-s^2*int((1*s*s^2)/(2*t)*x(t),t-20..1); 
fredholmproc(expr2); 


通过 机 械 化 算法 可 得 : 
Here, the parameters of the equation are as: 


_ 1l+s+s? 


y(s) = s?, k(s,t) SE 


When parameter lambda satisfy with: 
А = arbitrary number 
The Fredholm determinant of the kernel is as: 
dN) = 3 —3 In(3) +3 In(2) 


and the Fredholm minor is: 


lis+s? 


Dist) = —„ = 


2.1 Fredholm 积分 方程 求解 2297 


So, we can get the solution of the equation as: 


a(s)= 


1 —25?1п (3) + 25?1п (2) — 8 In(3) +8 1n (2) +3 — 8 sIn (3) + 8 81n (2) +38 
73 1-2 (3) +2 In(2) 


机 械 化 算法 给 出 的 上 式 求解 结果 显然 不 是 最 简 形 式 , 通过 化 简 我 们 容易 得 到 : 
1 2(In3 — In2)(s + 2)? 

3 1—2(n3—In2) 

事实 上 , 这 是 计算 机 代数 系统 Maple 下 的 一 个 习惯 , 即 从 不 自动 化 简 . 这 样 做 有 时 候 


会 有 一 些 好 处 譬如, 不 会 因为 化 简 而 丢失 信息 ), 但 有 时 候 会 有 一 些 不 便 . 但 无 论 
怎么 说 , 都 并 不 影响 结果 的 正确 性 . 


т(в) = 


Ф] 2.4: 考虑 Fredholm 积分 方程 : 


z(s)—- A КТ s) x(t) dt+2s. (2.13) 
0 


在 Maple 中 输入 : 


@xpr3:=x(s)=lambda*int (sin(ln(s))*x(t) ,t=0..1)+2*s; 
fredholmproc(expr3); 


可 得 机 械 化 求解 过 程 如 下 : 
Here, the parameters of the equation are as: 
y(s) = 28, k(s,t) = sin(In(s)) 
When parameter lambda satisfy with: 
AF -2 
The Fredholm determinant of the kernel is as: 
入 
А) =1+ 2 
and the Fredholm minor is: 


Da(s,t) = sin(ln(s)) 
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So, we can get the solution of the equation as: 


28 + sÀ + À sin (In(s)) 


a(s)=2 2*3 


Pl 2.5: 解 方程 : 


т 


a(s)=s+ (scost +t? sin s + cosssint) z(t) dt. 


在 Maple 下 输入 命令 : 


expr4:=x(s)=s+lambda*int ((s*cos(t)+t72*sin(s)+cos(s) 
*sin(t))*x(t),t--Pi..Pi); 
fredholmproc(expr4); 


则 机 械 化 算法 给 出 如 下 求解 过 程 : 
Here, the parameters of the equation are as: 
(s) = s, k(s,t) = scos (t) + t? sin (s) + cos (s) sin (t) 


When parameter lambda satisfy with: 


hi -liyà 
1 
yi, az 
# т + т 
The Fredholm determinant of the kernel is as: 


d(A) =1+2)?x? 


and the Fredholm minor is: 


(2.14) 


Da(s,t) = з cos (t) + t? sin (s) + cos (s) sin (t) + A ssin (t) т — 4A sin (s) sin (t) т 
+2 cos (s) cos (t) т + А cos (s) 2т — 2 А212 sin (s) т? + 4 A?s cos (t) à? 


一 8 XM cos (t) sin (s) т? + X2st2r2 
So, we can get the solution of the equation as: 


8-22 cos (s) т + 4 А?зт? — 8 X sin (s) x? 
> 1+2d2n2 


z(s) 
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例 2.6: 求解 
a(s)=s+A ftsnssind) a(t) dt. (2.15) 
0 


在 Maple 下 输入 命令 : 


expr5:-x(s)-s*lambda*int((1*sin(s)*sin(t))*x(t),t-0..Pi); 
fredholmproc(expr5); 


则 会 得 到 下 述 求解 过 程 : 
Here, the parameters of the equation are as: 
y(s) = s, k(s,t) = 1+sin(s)sin(t) 


When parameter lambda satisfy with: 


pg l 3®+ ут +6 agi saver 
2 T2 一 8 2 T2 一 8 


The Fredholm determinant of the kernel is as: 
3 1 2 
40) =1-5Ат+ 5M (т -8) 
and the Fredholm minor is: 
Da(s,t) = 1 + sin (s) sin (t) — pu sin (s) sin (t) т + 2A sin (t) + 2A sin (s) 


So, we can get the solution of the equation as: 


E: —4в+6вАт — 2Л2вт? + 16 А25 — 2A n? — AA sin(s) т + Ат? — 8 А2т 
2 2-3Xc А212 — 8? 


(в) = 


上 式 给 出 的 方程 (2.15) 的 解 不 是 最 简 形式 , 我 们 可 以 进一步 化 简 为 : 


тА (27 — (т? — 8) A) + 4 sin (s) 


a(s) = $+ аба 220478) 


例 2.7: 求解 : 


1 
z(s)— A Í arccost z(t) dt = (2.16) 
о 


У1- 82 


.32. 第 2 章 Fredholm 积分 方程 求解 及 其 机 械 化 


在 Maple 中 , 输入 命令 : 


expr6:-x(s)-lambda*int(arccos(t)*x(t),t-0..1)-1/sqrt(1-s^2); 
fredholmproc(expr6); 


即 得 求解 过 程 : 


Here, the parameters of the equation are as: 


‚ k(s,t) = arccos(t) 
When parameter lambda satisfy with: 
入 天 1 
The Fredholm determinant of the kernel is as: 
аА) 21-24 
and the Fredholm minor is: 
Dj(s, t) = arccos(t) 


So, we can get the solution of the equation as: 


18 -ВА+Ат2уТ 52 


20) =- tN 
例 2.8: 解 方程 : 
1 
x(s)-2 f (sint —tins) x(t) dt = $(1~48). (2.17) 
输入 命令 : 


expr7:-x(s)-lambda*int((s*ln(t)-t*1n(s))*x(t),t-0..1) 
-6/5*(1-4*s); 
fredholmproc(expr7) ; 


则 机 械 化 求解 过 程 为 : 
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Неге, the parameters of the equation аге as: 
24 
y(s) = B — 28, k(s,t) = sln(t) — tIn(s) 
When parameter lambda satisfy with: 
4 一 4 
m i, AAT V8BTi 
Fé gg VTi, Ф 39 i 
The Fredholm determinant of the kernel is as: 
29.5 
40) =1+ 25А 
and the Fredholm minor із: 
1 
Da(s,t) = sln(t) — tln (s) — ORG = 4 Asin(f)— 5 Atin(s)—2Ast 
So, we can get the solution of the equation as: 


_ 6 48 + 29 X — 192 s — 36 А28 + 40А In (s) + 10 à? In(s) 


z (s) 


5 48 + 29 A2 
例 2.9: 求解 方程 : 
27 
z(s)—A f [т —t|sins z(t) dt = s. (2.18) 
0 
在 Maple 中 输入 : 
expr8:-x(s)-lambda*int(abs(Pi-t)*sin(s)*x(t),t-0..2*Pi)-s; 
fredholmproc(expr8); 
即 得 求解 过 程 为 : 


Here, the parameters of the equation are as: 
y(s) = s, k(s,t) = |r — t|sin(s) 
When parameter lambda satisfy with: 
A=arbitrary number 
The Fredholm determinant of the kernel is as: 


а) =1 
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and the Fredholm minor is: 
Da(s,t) = |—т + t| sin(s) 
So, we can get the solution of the equation as: 


т (зв) = s + An? sin (s) 


例 2.10: 解 方程 : 


z(s) 一 入 
在 Maple 中 输入 命令 : 


expr9:-x(s) -lambda*int((Pi*t)^(-1/2)*(s-t)*x(t) ,t=0..Pi) 


a(t) dt = =s. (2.19) 


fredholmproc(expr9) ; 
即 得 求解 过 程 为 : 


Here, the parameters of the equation are as: 


y(s) =s, k(s,t) = 


When parameter lambda satisfy with: 
a 4 SiVI80 7° - 125 28 V2 m —6iV18073 — 125 r3 V2 
1443 – 100732 ' 14473 — 1001732 
The Fredholm determinant of the kernel is as: 


49) = 1458 (28-5 2 72) 


and the Fredholm minor is: 
Dy(s,t) = – тфу (71959 15t+ 14/88 102A n3 + 10/8 Ant 
+30V2. rst — 16 Ат? — 20x35 — 20A n3 — 30V Ast) 
So, we can get the solution of the equation as: 


3(—155+14/2ллї +10V2Aris—16A7% 一 20Aris) 


20)= —45 — 144 А293 + 1002 A273 
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本 节 最 后 , 我 们 列 示 一 个 dA) 存在 2 阶 零 点 的 例子 . 
例 2.11: 求解 方程 : 
x9) =1+а+'+л Ганева dt (2.20) 
-1 


在 Maple 中 输入 命令 : 


expri0:-x(s)-1*s*s^2*lambda*int((i*t*3*s*t)*x(t),t--1..1); 
fredholmproc(expri0); 


即 可 得 : 
Here, the parameters of the equation are as: 
y(s) =1+9+ 82, k(s,t)=1+t+3st 
When parameter lambda satisfy with: 
AF i 

The Fredholm determinant of the kernel is as: 

А) = 1— 4A +4)? 
and the Fredholm minor is: 

Dy(s,t) = 1+t+ 3st — 2А — 6Ast 


So, we can get the solution of the equation as: 


3 一 2 入 一 4X? 十 3s 一 6 入 s 十 352 — 12 82А + 1252? 


a(s) = 30 — 4+ 40%) 


从 以 上 算 例 的 结果 可 以 看 出 , 本 节 所 建立 的 求解 第 二 种 Fredholm 积分 方程 的 
机 械 化 算法 fredholmproc 可 以 给 出 方程 (2.1) 的 唯一 连续 解 的 解析 式 , 而 且 也 能 给 
出 解 方程 的 过 程 . 应 用 算 例 结果 表明 , 该 算法 对 于 求解 Ferdholm 积分 方程 (2.1) 简 
单 实用 且 高 效 快捷 . 所 得 结果 有 时 候 并 非 我 们 所 想象 的 最 简单 的 形式 , 但 这 并 不 影 
响 结果 的 正确 性 . 
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2.2 Fredholm 积分 方程 组 求解 


上 节 讨论 了 Fredholm 积分 方程 (2.1) 求解 问题 并 在 计算 机 代数 系统 Maple 下 
建立 了 机 械 化 算法 fredholmproc, 但 在 实际 问题 中 常常 会 遇 到 如 下 形式 的 Fredholm 
积分 方程 组 求解 问题 : 


Zi(s) 一 AÈ {кеда = Yi(s), i-142.,n. (2.21) 
3=1°% 
其 中 , kis, t) 0008) (5j = 1,2, ,nn) 都 是 平方 绝对 可 积 的 已 知 函数 ， 即 : 
b b b 
J [ касра f fm iesu 


而 zi(s) (i = 1,2,… ,n) 是 未 知 函数 . 
221 基本 算法 
Fredholm 积分 方程 组 (2.21) 的 求解 方法 与 单个 方程 (2.1) 基本 上 类 似 . эң 入 满 


b pb та 
IN < у шах, f. [ sts opas 


时 , 应 用 逐次 通 近 法 所 得 的 迭代 序列 平均 收敛 于 方程 组 (2.21) 的 解 . 而 当 К, (8,0) 
是 一 退化 核 时 , 方程 组 (2.21) 可 化 为 一 代数 方程 组 求解 . 

下 面 , 给 出 将 Fredholm 积分 方程 组 (2.21) 化 为 单个 Fredholm 积分 方程 的 方 
法 . 考虑 s 和 + 变化 的 范围 是 (a, nb — (n — 1)a], 并 定义 函数 K(s,t), Y (з), X(s): 

щ (i— 1)b— (i — 2)a < s < ib— (i — 1)a if, + 


E 


X(s) = zi(s — (i — 1)(b—a)), Y(s)—w(s- (i — 1)(b — a)); (2.22) 
щ (i—1)b— (i — 2)a < s < ib — (i — 1)a, (m — 1)b — (m — 2)a < t < mb — (m — 1)a 
BY, Ф 
K(s,t) = kim(s — (i — 1)(b — a), t — (m — 1)(b — a)). (2.23) 
XH, i,m = 1,2,… ,n. 
由 此 , 方程 组 (2:21) 可 化 为 与 方程 (2.1) 形式 上 完全 一 样 的 方程: 


—(n-1)a 
X(s))-A f ODE  isüXOd-YG, $= 1,2,---50. (224) 
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其 中 ， 
X(s) = (21(8), 22(8 — (b — a)), ++- zu (s — (n — 1)(- а)))7, 


Y(s) = (уз (в), y2(s — (b — a)), ++- ,yn(s — (n — 1)(b — а)))Т, 


ku(s,t) set kin(s,t — (n — 1)(b — a) 
kaı(s — (b —a),t) se kan(s — (b а), (п — 1)(b — а)) 
K(s,t) = 
ku(s-(n—-1)(b—a),t) +++  knn(s—(n—1)(b—a),t — (n — 1)(b а)) 


Ж K (s, t) 称 为 向 量 积分 方程 (2.24) 的 核 . 这 种 向 量 形式 的 方程 和 通常 一 个 未 知 函 
数 的 积分 方程 (2.1) 的 相似 之 处 不 仅仅 是 表面 的 , TH ERROR MR (定理 2.1) 
几乎 不 需要 作 任 何 改变 就 可 移植 到 由 方程 组 (2.21) 改写 而 得 到 的 向 量 方程 (2.24) 
上 . 根据 定理 21, 只 需要 当 yi(s) € 126,0), kij(s,t) € L?[a,d] x [a,b] BY, 按 (2.22) 
定义 的 Y(s) 及 按 (2.23) 定义 的 K(s,t) 分 别 是 区 间 [a,nb — (n — 1)a] 和 正方 形 
[a, nb — (n — 1)a] x [a, nb — (n — 1)a] 上 的 L2— $1 L2— 核 函数 即 可 . 这 一 点 是 容易 
满足 的 . 事实 上 , 我 们 有 : 


SOO OM" UK (s, t) dade 
7 E, Feri enm eii зе Is D dad 
= Y JJ |K(e+(m—1)(b-1),t + (4 — 16 — a) Pdsdt 
im-l 
= У fe fe Mos (o, tldsdt < oc. 
im=1 
同 理 可 证 
nb-(n—1)a n pb 
f 091248 = У / |) ?ds < о. 
a i= 76 


为 了 更 清楚 地 描述 利用 与 定理 2.1 LP SEA RR ERA Fredholm 
积分 方程 组 (2.21) 或 (2.24), 下 面 给 出 一 个 简单 的 算 例 . 


例 2.12: 求解 Fredholm 方程 组 : 


1 
zal(s) 一 J tz2(s)dt = za zz(s) 一 1 " tn (s)dt = ad 2. (2.25) 
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注意 到 , 这 里 , 和 = 1, a = 0,b = 1,п = 2, 把 方程 组 (225) 改写 成 向 量 方程 
(2.24) 的 形式 : 


2 
хфв)- [| коха = vo. (2.26) 
0 
其 中 ， 
X(s) = (т(в),та(в —1))7, ¥(s) = (nls), и(в—1)7 = (-$, s- 37. 


kui (s, t) ki2(s,t — 1) 0 s 
K(s,t) = = з 
ka(s—1,t) ke2(s —1,t-1) t 0 
根据 上 节 的 公式 (2.7) 可 计算 得 : 
Bo=1，Bi= [fj K(s,s)ds = fg ku(s, s)ds + f k1a(s, 8 — 1)ds = 0; 


Be Dy 
“ii, 
off 


ku(s, s) k12(s,t— 1) 


ku(t—1,5) ko(t—1,t—-1) 
К (8, з) k12(s,t — 1) 


kai(t—1,8) ko(t—1,t—1) 
ки (s, з) ky2(s,t — 1) 


kn(t-1,5) ka(t-1,t—1) 


ff 
orb 


Вз = By=---=0, 
从 而 , 由 公式 (2.4) 可 得 Fredholm 行列 式 为 : 


ki1(s, s) ki2(s,t — 1) 
dsdt 


kn(t—1,s) ka(t-1,t-1) 
huis, з) ki2(s,t — 1) 


kai(t—1,8) ko(t—1,t—1) 


1 
а) = >=” DB, By-BiegBE-10-i-i 
i=0 


同样 , 由 公式 (2.5) 可 计算 得 到 第 一 阶 Fredholm 子 式 为 : 


1 
Da(s,t) = 3 
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则 由 公式 (2.2) 可 得 方程 (2.26) 的 解 为 : 
X(s) = (в) + y) j Deria =Y(s) +2 J "ууа, 
当 0<s< 1 时， 
цз) =- +2 [да+ 2 fe- idt =s, 
41<s<2 mf, 


(в) = -4+2 f parse f'e- a2 
ich htt qu Aa та 


综 上 , 即 求 得 Fredholm 方程 组 (2.25) 的 解 为 : 


zi(s)— s, то(з)=з+1. 


由 例 2.12 的 计算 过 程 可 以 看 出 ,Fredholm 积分 方程 组 求解 过 程 较 单个 Fred- 
holm 方程 的 情形 计算 更 为 复杂 , 下 面 , 我 们 将 利用 豫 解 核 求解 法 在 Maple 下 建立 相 


应 的 机 械 化 算法 . 
2.2.2 Fredholm 积分 方程 组 的 机 械 化 算法 


从 上 节 的 基本 算法 及 例 2.12 的 计算 过 程 可 以 看 出 , 当 Fredholm 积分 方程 组 
(2.21) 转换 为 向 量 积分 方程 (2.24) 后 , 其 求解 方法 和 单个 Fredholm 方程 (2.1) 求解 
方法 极其 类 似 , 为 了 避免 重复 , 本 节 只 列 示 求 解 (2.21) 的 主 程序 , 其 余 相 关子 程序 可 


参看 上 节 相 关内 容 . 

FredEqns: =proc (expr) 

local Expr, parme, i, N, result, num, lambd, TKList, K, 
xfunction, yfunction, bounds, d lamb, D_lamb, m, n, 
inter, phi, j, kk, Temp; 

result:-0; 

num:= nops(expr); 

Expr:=map(.u->Union(_u) , expr) ; 

for i from 1 to num do 

parme [i] :=parmeint (Expr [i] ,2); 

end do: 

lambd:=parme [1] [1]; 

TKList :=[seq(map(unapply, parme [1] [2],s,t),i=1..num)]; 
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K:-Matrix(num,2,TKList); 
bounds: =рагше [1] [5]; 
inter :=bounds [2] -bounds [1]; 
xfunction:-map(unapply, [seq(parme [i] [3] ,i=1..num)],s); 
yfunction:=map (unapply, [seq(parme [i] [4] ,i=1..num)],s); 
for m from 1 to num do 
for n from 1 to num do 
K{m,n] :=K [m,n] (s- (n-1) * (bounds [2] -bounds [1] ) , t- (n-1) 
* (bounds [2] -bounds [11)) ; 
K[m,n] :-unapply(K[n,n],s,t); 
end do: 
end do: 
d.lamb:-1; Р lamb:-0; phi:=[seq(0,i=1..num)]; 
for i from 1 to num do 
for j from 1 to num do 
d lamb:21; 
D_lamb:=0; 
for kk from 1 to N do 
Temp: =KDet Int (num,kk,K,bounds,i,j); 
d lamb:-d lamb*lambdfk*Temp[1] ; 
D_lamb:=D_lamb+lambdkk*Temp [2] ; 
end do: 
phi[i]:-phi[i]*int(D.lamb/d lamb*yfunction[j](s[2] 
-(j-1)*inter), s[2]=bounds[1]+(j-1)*inter 
. -bounds [2]+(j-1)*inter) ; 
end do: 
phi [1] :=phi[i]+yfunction [1] (s[1]-(i-1)*inter) ; 
phi [i] :=unapply(phi [i] ,s[1]); 
phi [1] :=вішр1іғу(рћі [1] (s+(i-1)*inter)); 
епа до: 
xfunction:-seq(xfunction[i] (s-(i-1)*inter) ,i=1..num) ; 
yfunction:=seq(yfunction[i] (s-(i-1)*inter),i-1..num); 
lprint(‘The system can be rewritten as‘); 
print (X(s)-lambda*int (’K(x,s)’*X(t) ,t-bounds (11 
. -bounds [2] * (num-1) *inter)-Y(s)); 
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lprint (‘where‘) ; 
print (’X(s)’=xfunction, ’Y(s)’=yfunction, ’K(s,t)’=map 
(u->u(s,t),K)); 

lprint (‘The Fredholm determinant of the kernel K(s,t) is 
as:‘); 

print (’d(lambda) ’=d_lamb) ; 

lprint('and the Fredholm minor is:‘); 

print ('D[lambda](s,t)?-subs(s[1]-s,s[2]-t,D.1amb)); 

lprint('So, we can get the solution of the equations 
as:‘); 


print ((seq(parme [i] [3], i-1..num))-seq(phi [i] ,i=1..num)); 


2.2.3 ”应 用 算 例 


本 小 节 , 将 通过 若干 算 例 演示 机 械 化 算法 FredEqns 的 使 用 方法 及 功能 . 
例 2.13: 求解 Fredholm 积分 方程 组 : 
т (в) — fo(s+t)zi(t) dt — fo (s + 2t) zo (t)dt = -3s — $, 


(2.27) 
тз (в) — fo (2s +t) ai (t)dt — fo (2s + 2t) z2 (t) dt = —35 — $. 


在 Maple 中 输入 下 述 命令 : 

exprs[1] :=x[1] (s)-int((s+t)*x[1] (t) ,t=0..1)-int ((s+2*t) 
*x[2] (t) ,t=0. .1)=-3/2*s-8/3 ; 

exprs [2] :=x[2] (s)-int((2*s+t)*x[1] (t) ,t=0. .1) -int((2*s 
*2*t)*x[2] (t) ,t=0. .1) --3*s-5/3; 

FredEqns([exprs[1] ,exprs[2]]); 


即 可 得 到 机 械 化 求解 结果 : 


The system can be rewritten as: 


2 
Х(в) 一 入 ip K(s,t)X(s)dt = Y (s) 
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where 


X(8) = (кв), za(s — 1), 
¥(s)=(C$s-$,-35+ $), 


s+t s+2t-2 
K(s,t)= 
2s 一 2+t 2s—4-2t 


The Fredholm determinant of the kernel K(s,t) is as: 


and the Fredholm minor is: 
35 
Dal(s,t) = –98 + ar 9t + 8st 
So, we can get the solution of the equations as: 


(z1(s), zo(s)) = (в,1 + 2s) 


9I 2.14: 求解 积分 方程 组 : 


m (в) — fo (s +t) zı (t) dt — fosz2(t)dt= 3 -1- 1з, 


жэ (5) — fo (s? +t) ay (t) dt — fo (28 + 2t) x2 (t) dt =—28 — 18 12. 


3 


在 Maple 中 输入 下 述 命令 : 

exprs[3] :=x[1](s)-int((s+t)*x[1](t) ,t=0..1)-int((s) 
жх [2] (t) ,t=0. .1)=s*2-1/4-7/3*s; 

exprs [4] :=x(2] (s) -int((s2«t)*x(1] (t) ,t=0..1)-int((2*s 
*2«t) «x [2] (t) ,t=0. .1)=-2*s-19/12-1/3*s"2; 

FredEqns([exprs [3] ,exprs[41]) ; 


即 可 得 到 机 械 化 求解 结果 : 
The system can be rewritten as: 


2 
X(s) -À J. K(s,t)X(s)dt = Y (s) 


(2.28) 
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where 
X(s) = (zl(s),za(s — 1)), 
Y(s) 2(2-1-15-2s &-i(s-1)) 
stt 8 
K(s,t) = 
(s—1)? +t 2s—442t 
The Fredholm determinant of the kernel K(s,t) is as: 
37 
4А) = -7 
and the Fredholm minor is: 
Ne 
Dy(s,t)= уз 2*5! 6° 3 st t gts 
So, we can get the solution of the equation as: 
(21(s),22(s)) = (s?,1 + 28) 
例 2.15: 求解 : 
ту (в) — fo (s +t) ту (0) dt — fo saa (t) dt = sin (з) + 3 —2s--cos(1)s 
一 sin (1) + cos (1) — 2 s (sin (1) +4), 
(2.29) 


тз (в) — fo (5? + t) z1 (t) dt — Jo (28 + 22) za (t) dt = 2 cos (s) - 1-28? 
+ cos (1) s? — 5 sin (1) — 3 cos (1) — 4 sin (1) s — 16s. 


在 Maple 中 输入 下 述 命令 : 

exprs [5] :=x[1] (s)-int((s*t)*x[1] (t) ,t=0. .1)-int ((s) 
*x[2] (t) ,t=0..1)=sin(s)+1/2-2*s+cos(1)*s-sin(1) 
+cos(1)-2*s*(sin(1)+4); 

exprs [6] :=x[2] (s)-int((s^2*t)*x[1] (t) ,t=0..1)-int((2*s 
+2*t) *x[2] (t) ,t=0. .1) -2*cos (s) *7/2-2*s^2*cos(1)*s^2 
-b5*sin(1)-3*cos(1)-4*sin(1)*s-16*s; 

FredEqns([exprs [5] ,exprs(611) ; 


即 可 得 到 下 述 机 械 化 求解 过 程 : 
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The system can be rewritten as: 


2 
X(s) -af K (s,t)X (s)dt = Y (s) 
0 
where 
X(s) = (21(8), z2(s — 1), 
Y (s) = (sin (з) + 2 — 28 + cos (1) s — sin (1) + cos (1) — 2s (sin (1) +4), 
2 cos(s — 1) + 39 — 2 (s — 1)? + cos(1) (s — 1)? — 5 sin (1) — 3 cos (1) 
—4 sin (1) (s — 1) — 16 s), 
s+t 8 
K(s,t) = 
(s—1)?+t 2s—442t 


The Fredholm determinant of the kernel K(s,t) is as: 


37 
20) = 73 
and the Fredholm minor is: 
_8 43,10, 7, 8 7,2 
Dy(s,t) 95-75 ot 6? got t+ gts 


So, we can get the solution of the equation as: 


(z1(s), zo(s)) = (1 + sin(s), 8 + 2cos(s)) 


例 2.16: 求解 : 
| ту (8) — fo (s +t) zı (£) dt — fasza (t) dt =~} + e° — Зев + s, 


тз (з) 一 fo(s+t)a (t) dt — fo (2s +2t) z2 (t) dt = 2е* — H Бев 25. 
(2.30) 
在 Maple 中 输入 下 述 命令 : 
exprs [7] :-x[1] (s) -int ((s*t) *x[1] (t),t=0..1)-int((s) 
*x[2] (t) ,t=0. .1) --1/2*exp(s) -3*exp(1)*s*s; ; 
exprs [8] :=x[2] (s)-int((s*t)*x[1] (t) ,t=0. .1) -1«int((2*s 
*2*t)*x(2](t), t-0..1)-2*exp(s)-11/2-5*exp(1)*s*2*s; 
FredEqns( [exprs [7] ,exprs[811) ; 
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则 通过 机 械 化 算法 可 得 到 : 
The system can be rewritten as: 
2 
X(s)— af K(s,t)X(s)dt = Y (s) 
0 


where 
X(s) = (z1(s), z2(s — 1)), 


Y(s) = (2 +e" – Зез + з,2е*—1 — 15 — Бе(в—1)+ 23), 


stt 8 
K(s,t) = 
s—l+t 2s 一 4 十 2 


The Fredholm determinant of the kernel K(s,t) is as: 


So, we can get the solution of the equation as: 


(x1(s), 22(8)) = (1+ e*, 1 + 2e*) 


$i 2.17: 求解: 
m (s) — fo (s+t?) za (t) dt = s* - Z- 35, 


тз (з) — fo (s* +t) a (dt s $— 159, 


在 Maple 中 输入 下 述 命令 : 

ехргз [9] :=x[1] (s)-int ((s+t72)*x[2] (t) ,t=0..1)=s74-7/12 
-3/2*s; 

exprs [10] :-x[2] (s) -int((s^3*t)*x[1] (£) ,t=0. .1) -s*5/6 
-1/5*s^3; 


FredEqns([exprs[9] ,exprs[10]]); 


(2.31) 
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则 机 械 化 算法 FredEqns 可 输出 下 述 结果 : 


The system can be rewritten as: 
2 

X(s)- af K(s,t)X(s)dt = Y (s) 
0 


where 
X(s) = (z1(s), z2(s — 1)), 


¥(s) = (st - 9 — 358-5 - 808 —1)*), 


| 0 p 
K(s,t) = 


(s- 1? +t 0 
The Fredholm deterninant of the kernel K(s,t) is as: 
31 
4А) = ia 
and the Fredholm minor is: 
Dy(s,t) = 18 +3 (8-1? +3 (t-1? + (8-1) (t- 1) + $5? - ds hts? - s 
-h PPH} + 1 зі – 1182 - 44+ Re? - jst? 
So, we can get the solution of the equation as: 


(21(5), za (5) = (s* s +1) 


从 上 述 五 个 算 例 可 以 看 出 , 机 械 化 算法 FredEqns 的 功能 较为 强大 , 可 以 直接 求 
出 形 如 (2.21) 的 Fredholm 积分 方程 组 的 解析 解 , 解 中 不 仅 可 以 包含 多 项 式 函 数 , 还 
可 以 包括 更 为 复杂 的 正弦 函数 sin, 余弦 函数 cos 以 及 指数 函数 exp 等 . 但 是 , 由 于 
Fredholm 积分 方程 本 身 的 复杂 性 , 随 着 ij(s,t) 的 非 线性 的 增强 , 求解 过 程 极为 复 
杂 , 在 此 不 再 例 举 . 


2.3 ”本章 小 结 


本 章 研究 了 Fredholm 积分 方程 及 其 方程 组 的 殉 解 核 求解 法 , 在 此 基础 上 , 建立 
了 基于 Maple 平 台 的 机 械 化 算法 voltfredproc 和 FredEqns, 利用 这 些 算法 可 以 获得 
此 类 积分 方程 解析 解 . 应 用 算 例 表 明 , 上 述 算法 是 求解 Fredholm 积分 方程 的 高 效 
算法 之 一 . 这 将 为 Fredholm 积分 方程 求解 提供 参考 . 
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TEXT BPR TERM Fredholm 积分 方程 (£8) 的 算法 设计 过 程 中 , 困难 的 是 
计算 4) 和 Da(s,t), 特别 是 Fredholm 行列 式 的 计算 .我 们 知道 , 计算 机 代数 系 
统 Maple 中 有 一 个 线性 代数 包 linalg 包 含 100 多 个 函数 , 可 以 解决 线性 代数 的 各 种 
计算 , 但 无 法 直接 计算 d) 和 Da (5,0). 我们 利用 定理 2.1 以 及 矩阵 的 行列 式 的 计 
算 方法 , 建立 了 计算 d(A) 和 Da(s,t) 的 子 算 法 . 作为 例子 , 下 面 给 出 计算 Fredholm 
行列 式 dO) 的 算法 Kaet 的 源码 : 


Kdet:=proc (n,k) 
local v,i,j,d.det,D.det; 
v:=Matrix(1..n): 
for i from 1 to n do 
for j from 1 to n do 
v[i,j]:=k(s[i],s[j]); 
end do: 
end do; 
d.det:-simplify(det(v)); 
if n-1 then 
D.det:-0; 
else 
D.det:-simplify(det(minor(v,2,1))); 
end if; 
return d.det,D det; 


end proc: 


在 上 面 的 算法 中 , 命令 det (4) 是 用 于 计算 矩阵 4 的 行列 式 ， 而 mainor(A,i,j) 
返回 元 素 Aug 的 余子 式 , 即 从 det(A) 中 去 除 第 i 行 第 7 列 后 剩余 元 素 组 成 的 行列 
式 . 

另外 , 在 Maple 中 有 两 个 命令 matrix 和 Matrix 都 用 于 建立 矩阵 , 但 两 者 的 数据 


b 
结构 完全 不 同 . 例如 , 我 们 要 建立 一 个 矩阵 | 2 | ‚ 可 以 使 用 下 述 两 种 命令 : 
c 


F:=matrix(2,2, [[a,b] , [c,d]]); 

G:=Matrix(2,2, [[a,b] , [c,d]]); 
但 矩阵 F 的 数据 结构 是 symbol 而 G 的 则 是 Matrix， 在 实际 应 用 中 , 命令 Matrix 
较 matrix 更 实用 , 因为 我 们 可 以 通过 相关 命令 获得 Matrix 命令 所 建立 的 矩阵 的 基 
本 信息 , 诸如 行 数 , WM, 行 元 素 , 列 元 素 , 等 等 . 而 由 matrix 建立 的 矩阵 由 于 其 数据 
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结构 为 seymbol, 我 们 无 法 获得 进一步 的 信息 , 因而 无 法 进行 更 进一步 的 运算 . 

当然 , 因为 积分 方程 本 身 的 复杂 性 以 及 Maple 本 身 的 一 些 特点 , 我 们 从 计算 结果 
可 以 看 出 , Maple 下 的 输出 结果 有 时 不 符合 我 们 的 习惯 (例如 排序 的 问题 ), 但 这 并 不 
影响 结果 的 正确 性 . 

另外 , 在 机 械 化 算法 fredholmproc 和 FredEqns 的 设计 过 程 中 , 我 们 借助 lprint 
和 print 给 出 了 Fredholm 积分 方程 (8) 可 读 性 的 求解 过 程 , 增加 了 求解 过 程 的 多 
辑 性 和 理解 度 , 这 对 其 他 类 型 方程 的 机 械 化 求解 的 算法 设计 具有 参考 价值 . 

Егейһо 积分 方程 (组 ) 机 械 化 求解 研究 结果 表明 , 数学 机 械 化 是 积分 方程 求 
解 的 重要 方法 之 一 ， 其 中 最 吸引 人 的 当 属 利用 计算 机 可 以 高 效 快捷 地 进行 复杂 计 
算 . 但 是 , 我 们 绝 不 能 因此 而 认为 计算 机 是 万 能 的 , 它 不 能 解决 所 有 的 方程 求解 问 
Ж. 对 于 更 为 复杂 的 非 线 性 Fredholm 积分 方程 的 机 械 化 求解 依然 是 一 个 值得 研究 
的 领域 
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Volterra 积分 方程 是 另 一 类 经 典 的 且 应 用 广泛 的 积分 方程 . 自 数 学 大 师 Volterra 
对 于 该 类 方程 的 葛 基 性 工作 开始 , 关于 Volterra 积分 方程 求解 就 一 直 是 积分 方程 研 
究 的 热点 , 人 们 提出 了 各 种 各 样 的 求解 法 ( 详 见 1.2 节 ). 但 由 于 Volterra 积分 方程 
本 身 的 复杂 性 , 所 有 的 求解 方法 都 存在 着 过 程 繁复 、 计 算 量 大 的 问题 . 为 此 , 本 章 将 
研究 Volterra 积分 方程 的 求解 及 其 机 械 化 算法 问题 . 

本 章 分 为 4 节 , 第 1 节 , 研究 Neumann 级 数 法 及 其 机 械 化 求解 Volterra 积分 方 
程 的 若干 问题 , 特别 是 探讨 利用 有 限 项 迭代 核 通 过 数学 归纳 法 得 到 通 项 公式 并 最 终 
得 到 解析 解 的 问题 , 第 2 节 研 究 Taylor 级 数 求 解法 , 第 3 节 , 研究 Volterra 积分 方 
程 组 的 求解 , 最 后 , 也 就 是 第 4 节 , 给 出 Volterra 积分 方程 机 械 化 求解 的 一 些 讨论 . 


3.1 Neumann 级 数 求解 法 
第 一 章 (1.2 节 ) 简单 综述 了 求解 Volterra 积分 方程 的 各 种 方法 , TEAR ER. 
除了 前 已 述 及 的 方法 之 外 , 还 有 经 典 的 Neumann 级 数 法 [219 
3.1.1 基本 算法 


首先 , 我 们 重 述 求解 第 二 种 Volterra 积分 方程 的 Neumann 级 数 法 , 该 方法 是 建 
立 机 械 化 算法 的 基础 , 我 们 将 详 述 此 法 . 
考虑 第 二 种 Volterra 积分 方程 形 如 : 


z(s)— af k(s,t)z(t)dt = y(s), а<з<Ь. (3.1) 


其 中 , A 是 参数 , BH y (s) € L?[a,b] RH k(s,t) € L?[a, t] х [a,b] ELI, z(s) 是 要 求 
解 的 函数 . 
为 了 便于 叙述 求解 (3.1) 的 Neumann 级 数 法 , 我 们 先 给 出 下 面 一 些 预备 知识 . 


定义 3.1: 我 们 称 L- 函数 序列 {zn(s)}(n = 1,2,…) 在 巨 上 几乎 一 致 收敛 于 
BR z(s), 如 果 存 在 一 个 非 负 L- BR p(s), 使 得 对 于 任 给 的 > 0, 存在 与 之 对 应 
的 自然 数 NN, 当 n > МЕ, 有 : 


len(s) ~ т(з)| < ep(s). 
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引 理 3.1: RR k(s,t) € L?, a«t&s«b, x(s) e 12, 4 
э) = Гед (0712, 


D» 
n-1) 
i.e < SL etm (Г TOS Pat) ОБТ (8.2) 


i 
b 
lz l= ( [ ws, ora) 


称 为 连续 函数 z(s) 的 范 数 , 而 


hs) = q Ik(s, ofat) Ж 


5138 3.2: (RI k(s,t) € 12, a < ts <b, W 


这 里 ， 


piae i r- 


ni kı(s)ka(s) (n= 1,2,---) (3.3) 


其 中 ， 
їк I= Qe fe Gs вава), 
кв) = (f£ ks, dt)? , 
= (Iis opa)? А 


基于 上 述 结果 , 我 们 可 以 得 到 求解 第 二 种 Volterra 积分 方程 的 Neumann 级 数 
法 : 

定理 3.1: 假设 k(s, t) € 12, 对 于 任意 的 y(s) € L? 和 A € C, 方程 (3.1) 存在 唯 
一 的 L?- 解 , 即 Neumann 级 数 形式 解 : 


z(s) = y(s) + > Ау, (в), (3.4) 
n=1 


其 中 
vate) = кида (a =1,2,---), (3.5) 


3.1 Neumann 级 数 求解 法 551. 


这 里 , k"(s,t) 被 称 作 п KIIRI (iterative kernal), 满足 : 


k^(s,t) = [ eee да (п = 2,3,.-:;1=1,2,:.:). (3.6) 


为 了 便于 计算 , 公式 (3.6) 可 改写 为 下 述 形式 : 
k^(s,t) = [ k(s,u)k^7!(u,t)du (п = 2,3,--- ,n — 1). (3.7) 
t 
这 种 改写 在 实际 计算 时 非常 有 用 . 


ATH, 根据 定义 3.1, 容易 验证 , 方程 (3.1) 的 Neumann 级 数 解 , 即 (3.4) 的 
右边 表达 式 


uls) + 》 Myn(s) 
n-1 


几乎 一 致 收敛 于 z(s). 
为 了 便于 理解 Neumann 级 数 法 求解 (3.1), 我 们 通过 下 面 的 例子 列 示 求解 过 程 . 


Pl 3.1: 考虑 方程 : 
20) - 6G-9zbd=s (0< 5&9). (8.8) 
0 
жш, 
y(s) = з, k(s,t) =s—t, АХ = 1, 
则 : 
2(8,t) = f k(s, u)k(u,t)du = f/(s — u)-(u — t)dt = Bs—t), 


3(s,t) = fj k(s, u)k?(u,t)du = f; (s — u) - 1(u — t)*dt = di (s t), 


k*(s,t) = f (в, u)k?(u,t)du = f; (s — u) - di (u — t)5dt = gl (s — t)", (39) 
k5(s,t) = f k(s, u)k'(u, t)du = f (s — u) ушр (и — t)'dt = gl (s — 0)9. 
利用 数学 归纳 法 , 可 得 : 
Pleat) = 1 ge 977. (3.10) 
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从 而 , 方程 (3.8) 的 解 为 : 


M SESS ssa [SL E ts pom, 
29) =v) + f P Kk" (s, t)dt B Lamon t) dt 
=s + fy sinh(s — t)dt = sinh(s). 


显然 , 这 是 方程 (3.8) 的 解析 解 . 

在 这 个 例子 中 , 我 们 看 到 由 (3.9) 得 到 n 次 迭代 核 K^ (s, t) (3.10) 用 到 了 数学 归 
纳 法 ， 这 是 利用 Neumann 级 数 法 求解 方程 (3.1) 能 够 得 到 解析 解 的 最 为 关键 的 一 
Jp, 同时 也 是 实现 机 械 化 求解 Volterra 积分 方程 至 关 重 要 的 一 步 . 关于 数学 归纳 法 
自动 推 证 的 细节 将 在 3.1.4 节 给 出 . 

另外 , 通过 这 个 例子 , 我 们 也 看 到 了 Neumann 级 数 法 求解 方程 (3.1) 同样 存在 
计算 基 大 且 求 解 过 程 繁 复 的 问题 . 这 也 正 是 我 们 在 Maple 下 建立 机 械 化 算法 的 初衷 . 


3.1.2 Neumann 级 数 法 的 机 械 化 算法 


本 节 的 主要 目的 是 在 Maple 下 建立 基于 Neumann 级 数 法 求解 方程 (3.1) 的 机 械 
化 算法 , 利用 该 算法 可 以 方便 、 快 捷 地 获取 方程 (3.1) 的 解析 解 . 

从 上 节 研 究 可 以 看 出 , 用 于 求解 方程 (3.1) 的 公式 (3.4) 一 (3.7) 提供 了 在 Maple 
下 建立 机 械 化 算法 的 基本 方法 , 我 们 根据 这 些 公式 可 以 在 Maple 下 进行 相应 的 算法 
设计 和 程序 设计 . 机 械 化 算法 voltproc 的 设计 思想 参见 下 图 (图 3.1). 

而 当 我 们 利用 机 械 化 算法 voltproc 求解 方程 (3.1) 时 , 所 要 做 的 只 是 输入 关于 
方程 的 信息 , 机 械 化 算法 则 会 提供 方程 (3.1) 的 解析 解 以 及 求解 过 程 一 如 第 二 章 所 
述 , 我 们 仍然 选择 了 求解 过 程 的 可 读 性 输出 , 以 便于 人 们 理解 机 械 化 算法 的 求解 过 
程 . 机 械 化 算法 的 主 程序 voltproc 的 源码 列 示 如 下 : 


voltproc:-proc(expression) 

local k, fa, f, N, i, km, Flag, temp, H, par, lambdai, 
xfunction, yfunction, key, expr, bounds, fy; 

N:=10; 

par:=parmeint (expression); lambdai:-par[1]; 

expr:-par[2]; xfunction:-par[3]; yfunction:=par [4]; 

bounds:=par[5]; fy:-unapply(yfunction, s); 

k:-klist(expr,N); 

fa:-factorlist(k); 

temp:-induction(k,fa); 

f:-temp(1]; 

Flag:-temp[2]; 
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图 3.1 Neumann 级 数 法 求解 Volterra 积分 方程 的 机 械 化 算法 流程 图 


kn:=1/rhs(f [1])!; 
for i from 1 to nops(fa) do 
if type(fa[i],polynom) and Flag=1 and has(fa[i],-1) 
then k_n:=kn*(-fa[i])“rhs(f[i+1]); 
Flag:=0; 
else 
k_n:=k_n*(fa[i] ) “rhs (#[it1]) ; 
fi; 
od; 
H:-simplify(sum(lambdai^n*k n,n-0..infinity)); 
key:-simplify(yfunction*lambdai*int (H*fy(t),t-bounds [1] 
. bounds [2])); 
lprint('Here, the parameters of the system are as 
follows:'); 
print('y(s)'-yfunction, 'lambda'-lambdai,'k(s,t)'-expr); 
lprint('The nth term of the iterative kernel k^n(s,t) is 


as follows:‘); 
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print (’k*n’(s,t)=kn); 

lprint('The exact solution of the system is as follows: ‘); 
print (’x(s)’=key); 

end: 


这 里 , 主 程序 voltproc 中 的 参数 expression 表 示 要 求解 的 方程 的 信息 . 例如 , 对 
于 方程 (3.1), 我 们 在 Maple 下 需要 输入 的 仅仅 是 以 下 信息 : 


expr :=x(s)=lambda*int (k(s,t)*x(t) ,t=a..s)+y(s); 

voltproc(expr) ; 
则 机 械 化 算法 voltproc 即 可 输出 该 方程 的 解析 解 . 

另 一 方面 , 子 程序 parmeint 的 主要 功能 就 是 提取 方程 (2.10) 中 的 上 述 信息 , 包 
括 参数 A, BBR (s, t), 函数 y(s), 积分 限 [0, s] 以 及 待 求解 函数 z(s). 而 induction 
正 是 我 们 设计 的 数学 归纳 法 的 机 械 化 算法 , 由 于 其 在 自动 化 推理 中 的 重要 性 , 将 在 
3.1.4 详 述 . 

另外 , 在 voltproc 中 我 们 取 定 N = 10, 即 我 们 利用 公式 (3.7) 分 别 计算 E*(s, t), 
K*(s, t), «++, k10(3,t), 然后 再 利用 数学 归纳 法 获取 n 次 迭代 核 的 通 项 公式 E^ (st). 
这 里 , 我 们 选取 N = 10 并 无 什么 特殊 含义 , 也 可 取 其 他 的 数值 , 例如 NN = 8 或 20. 
但 N 太 小 我 们 可 能 很 难得 到 通 项 公式 , 而 N 太 大 则 使 计算 复杂 性 大 幅 提 高 且 没有 
必要 . 
3.1.3 ”应 用 算 例 


本 节 , 我 们 将 通过 几 个 例子 展示 基于 Neumann 级 数 法 的 机 械 化 求解 Volterra. 
积分 方程 的 过 程 . 


例 3.2: 求解 方程 : . 
EA s-t. 
a(s) =e +f e*"'z(t)dt. (3.11) 
在 Maple 中 , 我 们 需要 输入 关于 方程 (3.11) 的 信息 : 


expr2:=x(s)=exp(s)+int (exp(s-t)*x(t) ,t=0. .8); 
voltproc(expr2) ; 


则 机 械 化 算法 voltproc 即 可 输出 整个 求解 过 程 及 其 解析 解 : 
Here,the parameters of the system are as follows: 


y(s) = е*, А = 1, k(s,t) =e** 
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The nth term of the iterative kernel k"(s,t) is as follows: 


e*(s — t)” 


K”(s,t) = ne 


The exact solution of the system is as follows: 
z(s) = e?9 


容易 验证 z(s) = e?* 即 为 方程 (3.11) 的 解析 解 . 而 整个 求解 过 程 只 需 2 秒 即 可 完 
成 . 


例 3.3: 解 方程 : > 
а(8) = 83 =f 3*-'z(t)dt. (3.12) 
输入 命令 : 
expr3:-x(s)-s*3^s-int(3^(s-t)*x(t),t-0..s); 
voltproc(expr3); 
即 可 得 机 械 化 求解 过 程 : 


Here,the parameters of the system are as follows: 
y(s) = 83°, А = —1, k(s,t) = 3** 
The nth term of the iterative kernel k"(s,t) is as follows: 


3*(s — t) 
n! 3t 


K"(s,t) = 
The exact solution of the system is as follows: 

z(s) = —3*(-14- e7*) 
显然 , 这 是 方程 (3.12) 的 解析 解 . 


例 3.4: 解 
a(s) =1—25— f ef z(t)dt. (3.13) 
0 
输入 命令 : 


expr4:7x(s)-1-2*s-int(exp(s^2-t^2)*x(t) ,t=0..s); 
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voltproc(expr4); 
则 机 械 化 求解 过 程 为 : 
Here,the parameters of the system are as follows: 
y(s) 21-25, A=—1, k(s,t) =e” 
The nth term of the iterative kernel k"(s,f) is as follows: 


e” (s -—t)r 


K"(s,t) = nle” 


The exact solution of the system is as follows: 


2(s) = -25 4 c7 ?* 


此 即 解析 解 , 
例 3.5: 考虑 方程 : 
z(s)-1-s54 [ioa (3.14) 
在 Maple 下 输入 : 
exprb5:7x(s)71*s^2*int((1*«s^2)/(1*t^2)*x(t) ,t=0. .8); 
voltproc(expr5); 
即 可 得 求解 过 程 如 下 : 
Here, the parameters of the system are as follows: 
ys) - 14-52, A=1, k(s,t) = ite 


The nth term of the iterative kernel k"(s,t) is as follows: 
(1 + s?)(s – 0)" 
nl (1+ 2) 


The exact solution of the system is as follows: 


K"^(s,t) = 


a(s) = (1 + s?)e* 


为 方程 (3.13) 的 解析 解 . 
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Bil 3.6: 解 方程 : 

z(s) -2 j; т e - "atit = ert, (3.15) 
输入 命令 : 
expr6:-x(s)-2*int(exp(s^2-t^2)*x(t),t-1..s)-exp(s^2*2*8); 
voltproc(expr6); 
即 可 得 求解 过 程 为 : 


Here,the parameters of the system are as follows: 
y(s) =e" +", д = 2, k(s,t) =e” 


The nth term of the iterative kernel k"(s,t) is as follows: 


The exact solution of the system is as follows: 


z(s) = e***9(—1.-25) 


即 为 (3.15) 的 解析 解 . 
例 3.7: 解 方程 
z(s) = sins +2 J ^"! z(t)dt. (3.16) 
0 
由 命令 : 
expr7:=x(s)=sin(s)+2*int(exp(s-t)*x(t) ,t=0..s); 
voltproc(expr7) ; 
可 得 机 械 化 求解 过 程 为 : 


Here,the parameters of the system are as follows: 
y(s) = sins, A= 2, k(s,t) = e*7* 


The nth term of the iterative kernel k"(s,f) is as follows: 


e*(s — t)” 


K^(s,t) = deë 
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The exact solution of the system is as follows: 


— 6 1 ls 
2(8) = zsins 5 0088 + ge 


5 
此 为 (3.16) 的 解析 解 . 


例 3.8: 求解 : 
32+ coss 
o 2+cost 


z(s) = e* sins + a(t)dt. 


输入 命令 : 


expr8 : =x(s)=exp(s)*sin(s)+int ((2+cos(s))/(2+cos(t))*x(t), 
t=0..8); 
voltproc(expr8); 


即 得 求解 过 程 : 


Here, the parameters of the system are as follows: 


2+coss 


y(s) =e*sins, А = 1, k(s,t) = Db cost 


The nth term of the iterative kernel k"(s,t) is as follows: 


(s — t)” (2 + cos(s)) 
n! (2 4- cos(t)) 


The exact solution of the system is as follows: 


K"(s,t) = 


z(s) = e* (sins — 2 In(2 + cos s) — In(2 + cos s) cos s + 2 In3 + In3coss) 
此 为 (3.17) 的 解析 解 . 


下 面 , 我 们 给 出 一 个 积分 方程 中 含有 未 定 函数 的 求解 问题 . 
例 3.9: 解 方程 


т(з) =X [enota ув). 
在 Maple 下 输入 : 


expr9:=x(s)=lambda*int (exp(s-t)*x(t) ,t=a..s)+£(s); 
voltproc(expr9) ; 


则 机 械 化 算法 voltproc 输 出 求解 过 程 : 


(3.17) 


(3.18) 
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Here,the parameters of the system are as follows: 
y(s) = f(s), A=A, k(s,t) = ee 


The nth term of the iterative kernel k"(s,t) is as follows: 
кто) = 07 
The exact solution of the system is as follows: 
z(s) = f(s)+ af e+ (8-9 f(t)at 
0 
即 为 (3.18) 的 解 . 显然, 当 f(t) 给 定时 , 我 们 能 够 获取 方程 (3.18) 的 解析 解 . 


3.1.4 ”数学 归纳 法 机 械 化 推理 的 进一步 探讨 


ЕЗ, 基于 Neumann 级 数 法 并 结合 数学 归纳 法 建立 了 求解 第 二 种 Volterra 
积分 方程 的 机 械 化 算法 voltproc, 该 算法 最 大 的 特点 是 能 够 提供 积分 方程 的 解析 
解 ， 而 其 中 最 重要 的 一 个 环节 是 通过 前 N 个 迭代 核 kN(s,t) 的 计算 结果 (在 算 
法 voltproc 中 , 我 们 取 N = 10), 运用 数学 归纳 法 得 到 n 次 迭代 核 k"(s,t) 的 通 
项 公式 , 然后 再 利用 公式 (3.4) 即 可 得 到 所 求 方程 的 解析 解 . 

众所周知 , 数学 归纳 法 是 一 种 在 定理 自动 推 证 和 机 械 化 求解 中 具有 重要 作用 
的 数学 方法 , 其 最 大 的 难点 在 于 利用 有 限 项 信息 获得 通 项 公式 .一 般 情况 下 , 我 们 
获取 通 项 的 方法 是 基于 经 验 或 者 简单 的 推导 , 而 一 般 的 通用 算法 似乎 是 不 存在 的 ， 
因而 也 不 存在 可 用 于 计算 机 自动 推 证 的 通用 算法 ， 在 算法 induction 设 计 过 程 中 ， 
我 们 成 功 地 利用 “分 解 ” 原 理 将 kx (s,t) 分 解 为 若干 个 部 分 , 这 一 分 解 过 程 由 子 程 
序 klist 完 成 : 

klist :=proc (expr ,n) 

local temp,temp2,tempi,k,i; 

temp:-unapply(expr,s,t); temp2:-temp(u,t); 

k[1]:-factor(temp(s,t)); 

for i from 2 to n do 

tempi:-int(temp(s,u)*temp2,u-t..s); 
tempi:-unapply(tempi,s,t); 

k[i] :=factor(temp1(s,t)); 

if type(k[i],‘+‘) then return FALL fi; 
temp2:-tempi(u,t); 
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od; 

k:=convert (k,list) ; 
k:=subsop(1=NULL,k) ; 
return k; 


end: 


在 此 基础 上 , 对 每 一 部 分 逐一 运用 数学 归纳 法 , 最 后 再 按照 原来 “分 解 " 的 逻辑 
顺序 合并 在 一 起 , 从 而 得 到 了 计算 通 项 k^ (s.t) 的 机 械 化 算法 . 下 面 , 我 们 给 出 数学 
归纳 法 算法 induction 的 Maple 源 代码 : 


with(stats): 
induction: =proc(List: : list) 
local num,i,Later,k,temp,Flagi,Flag2,f,Flag,y; 
num:-nops(List): Later:-[]; 
Flagi:-0; 
Flag2:-0; 
Flag:=0; 
for i from 1 to num do 
k:=1; 
if i mod 2-0 and List[i]<0 then Flagi:-1;fi; 
if i mod 2<>0 and List[i]«O then Flag2:-1;fi; 
if abs(List[i])<1 then 
Flag:=1; 
temp:=abs(1/List [i]) ; 
elif abs(List[i])»-1 then 
temp:=abs (List [i]); 
fij; 
while temp<>1 do 
temp:=temp/k; 
k:=k+1; 
if temp<1 then return ERROR fi; 
od; 
if i-1 and k-1 then 
Later:-[op(Later),k]; 


else 
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Later:-[op(Later),k-1]; 
fi; 
od; 
f:-fit[leastsquare[[n,y]]] ({{seq(i,i=1..num)], 
(seq(Later[j] ,j=1..num)]]); 
if Flagi=1 and Flag2=1 then 
y:=-rhs(f)!; 
elif Flagi-1 and Flag2-0 then 
y:=(-1)* a) *rhs(f£)!; 
elif Flagi-0 and Flagi=1 then 
y:=(-1)*(n) *rhs(£)! ; 
else 
y:=rhs(£); 
fi; 
if Flag=1 then 
у:=1/у; 
е1зе 
у:=у!; 
fi; 
lprint('The nth term of the sequence is as follows: ‘) 
print (у); 
end: 


尽管 如 此 , 但 我 们 想 强调 的 是 可 能 由 于 Neumann 级 数 解 的 固有 优点 使 得 我 们 
的 数学 归纳 法 得 以 成 功 应 用 , 而 当 我 们 将 这 一 做 法 用 于 其 他 问题 的 解决 时 , 却 因为 
重重 困难 而 无 法 得 到 我 们 期 望 的 结果 . 这 也 将 是 我 们 后 续 研究 的 一 个 问题 . 


3.2 Taylor 级 数 求 解法 


Taylor 级 数 法 是 一 种 重要 的 方程 求解 方法 , 在 微分 方程 (包括 常 微分 方程, 偏 微 
分 方程 等 ) 领域 有 广泛 应 用 . 但 Taylor 级 数 法 运算 结果 的 精确 度 由 级 数 展开 的 阶 数 
决定 . 要 想 获取 较 高 的 精度 必须 选择 较 大 的 阶 数 , 而 这 势必 又 带 来 计算 量 大 、 运 算 
过 程 繁复 的 问题 . 因此 , 借助 计算 机 大 容量 、 高 精度 、 高 效率 的 特点 在 计算 机 代数 
系统 下 建立 相应 的 机 械 化 算法 是 必要 的 . 
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本 节 的 内 容 安排 为 : 首先 , 我 们 给 出 求解 Volterra 积分 方程 的 Taylor 级 数 法 原 
理 , 在 此 基础 上 建立 相应 的 机 械 化 算法 , 最 后 , 给 出 若干 算 例 说 明 机 械 化 求解 算法 的 
应 用 . 
3.2.1 Ж Volterra 积分 方程 的 Taylor 级 数 法 

考虑 下 述 第 二 种 Volterra 积分 方程 : 


z(s)— af k(s,t)z(t)dt = y(s), O<s<l. (3.19) 


这 里 , 参数 入 和 函数 kls, t), y(s) 均 已 知 , 而 z(s) 是 待 求解 的 函数 . 
将 方程 (3.19) 中 的 z(s) YE s = 0 处 展开 成 Taylor 级 数 : 


(в) == ay Fab as К Жаш ЫЕ. (3.20) 
i=0 
其 中 Rn(s) HRD, ai (i = 0,1,… ,n) 是 待定 系数 . 
略 去 余 项 Rn(s), 即将 (3.20) 转换 为 Taylor 多 项 式 形式 : 


z(s) = ао + аз + a2s? +--+ + ans". (3.21) 


接 下 来 , 用 同样 的 方法 得 到 y(s) (ХЕ в = 0 点 ) M k(s,t) (YE t = 0 点 ) AY Taylor 
多 项 式 结果 ， 将 这 些 结果 全 部 代入 方程 (3.19), 则 方程 (3.19) 中 的 积分 部 分 可 积 . 
我 们 就 可 把 积分 方程 (3.19) 转换 成 了 关于 参数 s 的 含有 + 1 个 未 知 参数 ai (i = 
0,1,… ,n) 的 形式 , 然后 提取 s (i = 0,1,--- n) 的 系数 即 可 得 到 a; (i = 0,1,--- ,n) 
的 代数 方程 组 . 求解 该 代数 方程 组 可 得 到 系数 ai (i = 0,1,… ,mn), 即 可 获得 积分 方 
程 的 Taylor 多 项 式 解 (3.21). 

显然 , Taylor 多 项 式 解 (3.21) 的 精度 依赖 于 (3.20) 中 级 数 的 展开 阶 数 n, n 越 
大 精度 越 高 , 相应 的 计算 复杂 度 也 迅速 提高 . 下 节 , 将 借助 计算 机 代数 系统 Maple 建 
立 相应 的 机 械 化 算法 . 


3.2.2 Taylor 级 数 法 的 机 械 化 算法 
Taylor 级 数 法 求解 Volterra 积分 方程 的 近似 精确 解 的 过 程 可 以 在 计算 机 代数 


系统 Maple 下 建立 相应 的 机 械 化 算法 . 机 械 化 算法 的 主 程序 mainproc 的 Maple 源 代码 
如 下 所 示 : 


mainproc:=proc(expr, N) 
local Expr,parme,lambda,k,xfunction,yfunction, bounds, 
Xfunction,Func,TaylorT,TaylorS,egn,key,i,result; 
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result :=0; 

Expr :=Union (expr); 

parme :=parmeint (Expr) ; 

lambda:=parme[1]; k:-parme[2]; 

xfunction:=parme [3] ; 

yfunction:=parme [4]; 

bounds :=parme [5]; 

xfunction:-sum(a[i]*s^i,i-0..N*1); 

Xfunction:-unapply(xfunction,s); 

TaylorT:-convert(taylor(k,s-0,N*1),polynom); 

TaylorS : =convert (taylor (TaylorT,t=0,N+1) ,polynom); 

Func:=sort (collect (Xfunction(s)-convert (taylor (yfunction, 
s=0,N+1) ,polynom) -lambda*int (collect (expand (TaylorS 
*Xfunction(t)),t),t=0..s),s),s); 

lprint (‘The equation can be converted into the following 
algebraic equations: ‘); 

eqn: =seq (coeff (Func,s,i)=0,i=0..N): 

print (eqn); 

key:=solve(eqn,seq(a[i] ,i=0..N)); 

lprint('Solve this algebraic equations, we can get:'); 

print(key); 

for i from 1 to N*1 do 

result:-result*rhs(key[i])*s^op(1hs(key[i])) ; 

od; 

lprint('Then the solution of the equation is as follows:'); 

print(parme[3]-result); 

end proc: 


为 了 便于 计算 , 在 主 程序 mainproc 中 我 们 取 s FAHRER, 即 要 求 输入 方程 
时 取 s 为 变量 , 其 他 参数 集 为 : 


expr: 要 求解 的 积分 方程 ; 
N: Taylor 多 项 式 解 的 阶 数 . 


例如 , 对 于 方程 ‚ 
z(s) =e*sins +f etz(t)dt. 
0 
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在 Maple 中 , 我 们 需要 输入 以 下 信息 : 


expr :=x(s)=exp(s)*sin(s)+int (exp(s-t)*x(t) ,t=0..s); 


mainproc(expr, 10); 


即 可 获取 该 积分 方程 的 10 阶 Taylor 近似 解 . 
另 一 方面 , 主 程序 mainproc 中 的 两 个 子 程序 Union 和 parmeint 的 作用 或 源码 参 


见 2.1.2 所 述 . 
3.2.3 ”应 用 算 例 


为 了 更 清楚 地 理解 nainproc 机 械 化 求解 过 程 , 本 节 , 我 们 选择 了 8 个 不 同类 型 
的 例子 , 其 中 , 5 个 第 二 种 Volterra 积分 方程 一 3 个 线性 和 2 个 非 线性 , 2 个 第 一 种 
Volterra 积分 方程 一 1 个 线性 1 个 非 线 性 , 还 有 1 个 例子 是 积分 一 微分 方程 . 首先 
给 出 的 是 一 个 简单 的 线性 Volterra 积分 方程 例子 . 


例 3.10: 考虑 第 二 种 Volterra 积分 方程 


z(s) = coss — e* sins + f e'z(t)dt. (3.22) 
0 


在 Maple 中 , 我 们 需要 输入 关于 方程 的 下 述 信息 ; 


expri:=x(s)=cos(s)-exp(s)*sin(s)+int (exp(s)*x(t) ,t=0..s); 


mainproc(expri,10); 


则 机 械 化 算法 mainproc 立 即 返 回 以 下 结果 : 


3.2 Taylor 级 数 求解 法 -65- 


The equation can be converted into the following algebraic equations: 


09—1-0 

al 一 ao 十 1=0 

az 一 和 ol 一 ao 十 号 =0 
—}a2 — $a, c a3 — ao $ =0 


1 1 1 10 
a4 — {оз 302 — 401 — $00 — 34 

3 1 1 1 1 — 
as — Зад — ias – 1a? - фа – hao- 4 - 0 


1 1 1 214 — La; – 4ag— =15 = 
ав — $05 — $04 — 83 — 1802 — 1891 — 12090 — 735 = 0 


1 1 1. 1 1 1 1 L = 
ат — 646 — 695 — 1004 — 3403 — 7542 — 54001 — 7090 — 630 = 0 


1 1 1 1 1 1 1 AT SS ME 
ав — 807 — 106 — 3305 — 3004 — 9603 — 36002 — тауа) — 504090 — 1030 = 0 


1 1 1 1 1 1 1 1 Ja; 1 
аә ~ фав — $07 — 1406 — 3605 — 12574 — 18003 — 216002 — 1008001 — 4032070 


1. 
+26 = 0 


1 TX C ar (quad. nur оу eru егар 
Q10 — 3909 — $08 — 1607 — 436 — 14405 — 50094 — 785003 — 1512002 — 806401 


— з0088090 + rape; = 0 
Solve this algebraic equations, we can get: 
{ало = —звзёбб› 29 = 0,08 = тузу; ат = 0,06 = — 90,05 = 0,04 = dg 
аз = 0, a2 = —3,a1 = 0,a9 = 1) 


Then the solution of the equation is as follows: 


a 1 2 1 A 1 6 1 8 1 10 
2(8)=1— 59 +249 — 7555 + 493367 — 3628800 


事实 上 , 方程 (3.22) 的 解析 解 为 : 


| 
a(s) = coss - 1-g5' + gt — 72° + 35355 8° — 3608800 ^ 


10 +... 


显然 , 机 械 化 算法 mainproc 返 回 的 是 方程 (3.22) 的 解析 解 coss 的 10 阶 Taylor 
多 项 式 解 . 这 里 的 10 是 我 们 在 运行 主 程序 nainproc 时 输入 的 第 2 个 参数 值 . ШЖ 
我 们 想得到 精度 更 高 的 结果 , 我 们 需要 选取 更 大 的 N, 即 增 大 mainproc 的 第 2 个 参 
数值 . 
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Ф] 3.11: 求解 第 二 种 Volterra 积分 方程: 
z(s) =sins +2 T КЕ? (3.23) 
0 


输入 命令 : 


expr2:=x(s)=sin(s)+2*int (exp(s-t)+*x(t) ,t=0..s); 
mainproc(expr2,10); 


即 可 得 10 阶 Taylor 多 项 式 解 的 求解 过 程 为 : 

The equation can be converted into the following algebraic equations: 
ао = 0 
a, —2a9-1=0 
ад – a, – ао = 0 


as- ĝa 一 于 al 一 二 ao 十 到 一 


1 
a4 — раз – $а2— ha- ao =0 
2 1 1 1 2 
as — $04 — 1093 — 3092 — 89 ~ 809 ~ TH = 0 
1 2 1 1 me | ED! = 
ав — $05 — 1504 — g5 03 — тар 02 — 350 01 — 360 20 = 0 
2 1 1 d. аз – = аз – zb ал – zb ті = 
ат — $06 — 3; 05 — тоз 04 — 335 03 — 3269 92 — 7520 01 — 9520 90 + Fag = 0 
1 1 1 1 1 1 1 1 = 
ав — 407 — 9506 — Teg 05 — 540 04 — 3360 03 — 10085 02 — 90160 71 — 90100 90 = 0 
2 2 l l 1 1 1 1 
аә — 9 8 — 36 07 — 752 %6 — 1512 05 — 1560 04 — 30240 03 — 00770 02 — 181410 01 


1 Pit 
—1вїїб 20 — 352880 = 0 


ї 1 1 1 1 1 1 NES 
010 — $09 — 3508 — 360 07 — 2526 06 — 15120 05 — 75600 24 — 302400 03 — 007200 02 


1 n = 
таталоб 01 — твтад00 40 = 0 


Solve this algebraic equations, we can get: 


2 2 2 Сз сыы Bs бай). „эш AM с. су. 

{ао = 0,a; = 1,az = 1,аз = 3,04 = $,а5 = 155: ав = 360,07 = 8040: ав = TRO’ 
= 3937 = Qual 

Q9 = 362880, 010 = 362880 


Then the solution of the equation is as follows: 


49 5, 73 6, 437 7, 41 в. 3997 o, 1181 wo 
120^ * 360° " 5040° ' 1260! ' 362880° 362880. 


a(s) = sese базда 


易 证 , 方程 (3.23) 的 解析 解 为 : 


3.2 Taylor 级 数 求解 法 -67- 


z(s) = $e% — 1 coss + 2 sins 
ENTER 85. 64 437 57 8, _3937 1181 s 
= 3 十 9 十 83 +39 i995 = S + $040 81+ SS + 5292789 +3 вз" o4 


例 3.12: 解 第 二 种 Volterra 积分 方程 : 
z(s)-214s dus a a(t) dt. (3.24) 


输入 命令 


expr3:-x(s)-1*s^2*int((1*s72)/(1*t^2)*x(t) ,t=0..s); 
mainproc(expr3, 10) ; 


即 可 得 求解 过 程 为 : 

The equation can be converted into the following algebraic equations: 
ao 一 1=0 
а = а = 0 
а-а -1=0 
аз — ўа – ĝa = 0 
as- јаз - 1а =0 
as- $a- аа + 2 а =0 
a6 — § a5 一 十 3 十 二 a1 =0 
ar — $06 — jg a4 + dg 02 — 500 = 
ав — фат – {5+ 0з — а = 
ag — $ as — i5 06 + dy 04 — dg 02 + d 00 =0 


1 1 1 1 em 
aio — їр 49 — 3g 07 45 05 — 3503 + дуа =0 


au + фаз — фав — h a — 25а + дав — Fay — 0 


H 
212 + фаз — 页 as 一 页 ae 十 而 5 az — 35 41 зап =0 


= = EN 2 LR 
a13 + gi ав — тїз 02 — таз 010 — үң 012 — тїз a6 + 12504 + jig no = 0 


1 1 
аа — рат — ast {41+ das — dias dia - ща =0 


2 2 cmi er _ 2 2 1a 3 2 
Q15 + тр 46 + Tog 010 — 395 08 — 185 012 — 195 04 + qez 02 — 395 00 — {уам — O 
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Solve this algebraic equations, we can get: 
EO p; 2A = 483 
{ао =1, аз =1, a2 = $, аз = 5, a4 = M. as = д, ав = тшу, 07 = 5040, 
= 9 BEI = is Ss ar = 19 
ав = 73445 79 = 352880, 210 = 518400› C11 = 13305600› 12 = 68128800, 


= 137 EC] X 211 
бз = Sar "14 = 0060430100, 915 = 1307874368000} 
Then the solution of the equation is as follows: 


9 73 
z(s) = 1+з+ў5+ 59+ 1454+ 1у55--#0;55-- Др з! + тау + senna 5 "EDS 
5 


зт 11, 19 512 157 13 61 14 211 1 
+13305560095 +684288003 + «0770208005 +150554304005 1376743080005 


容易 验证 方程 (3.24) 的 解析 解 为 : 
z(s) = є*(1 + 82) 
m 3624793413 944 1.55. 31 6, 43 „тү 19 8, 73 „94 13 „0 
= 1+з+]5°+65°+25°--165°-_7205 +5040 " 13440? + 362880? ^ 5184009 
зт ll, 19 12} 1857 — иЗ ТИШЕ 211 15 
1133050008 "68428800? + 02770208005 + 200894304007 + 1307614368000 9 
des 


上 述 三 个 例子 均 属 于 第 二 种 Volterra 线性 积分 方程 , 接 下 来 的 两 个 例子 是 非 线 
性 的 情形 . 我 们 也 可 以 通过 这 两 个 例子 进一步 了 解 非 线性 积分 方程 的 计算 复杂 性 . 


PY 3.13: 求解 第 二 种 非 线 性 Volterra 积分 方程 : 


z(s)-14 [ ет*12(0) dt. (3.25) 
0 


在 Maple 下 , 输入 以 下 命令 : 


expr4:=x(s)=1+int (exp(-t)*(x(t)) 72,+=0..8); 
mainproc(expr4, 10) ; 


即 可 得 : 
The equation can be converted into the following algebraic equations: 


ao 一 1=0 


а — а? =0 


3.2 Taylor 级 教 求解 法 "995 


а2 — apa; + ay? = 0 


аз + 2 aoa: — $ ao? — 3 адаз — 12 = 0 


1 Vg 
ад — } apa; — $ ааз + d; ao? — } аоаз + у адаз + ра? =0 


as — тїр ao? + $ aoa — 2 ааз — $ aoan — 2 адад — $a? — d ai? + 2 aoas + 2 алаз 
=0 

ag + } алаз + тру ao? — уу aoa; — 15 ааз — { 0003 + $0004 — $ 0203 + үң aoa2 + р аг? 
+95 a1? — 1 адау — ааа = 0 


1 15; 1 
ат + 2 ада — 2 agas + di; aoa: — 2 aas + 3; aima — вру ао? + # атаа + 3; адаз 


1 1 1 аара 
+2 asa — 2 азад — d; адал — 3 алаз — + aoas — аз — 1492 — yes 01 


ав + дїр 2002 — dg 1003 — ggg; 4001 — $ aoas — gg 4142 + зр ад? — $ a104 + } anas 
—{ аав — $ a203 + 1204 — } азау — { азаа + 1 0006 一 ават + 3; ааз 
+ 004 + a3? + 4g a2” + gig ai? = 0 

49 — ggdggg 00^ + zago 0001 — 1g аз? — gig 02° — $ 04^ — вр 01^ + gig 0102 — jg 0103 
+3 a104 一 $ aas + $106 一 2 алат + d; азаз 一 $ азаа + $ azas 一 3 азав 
十 азал 一 $asa5 — эй 2002 + sig 2003 — 79g 2004 + 3; араз — { 2006 
+2 адат — $ адав = 0 

ало + 5028505 20° 一 501505 0001 — $ Goas + dh as? + тау 02^ + 15 04^ + вор 012 
— zao 2142 + gig лаз — 13 104 + 35 A105 — i5 A146 + { алат — $ алав 
— lg 0203 + эу a204 — үр azas + $ azae — 1a20; — тр азаа + 1 agas 一 $ agas 
—{ a4as + gig а002 — zayo 4003 + gig; а004 — ту абаз + 35 аоав — ў; aoar 
+} aoag = 0 


Solve this algebraic equations, we can get: 


= PS 1 E ‹ e 1 s 
{ao = lal = 1,02 = $,a3 = §,04 = 24,45 = 高 ,ae 


1 L 
9 = ggigso: 010 = sezsmo) 
Then the solution of the equation is as follows: 


z(s) =1+8+ $5? + 359+ dosi + 1085 + 0085 + diss! + 025785 + eke? + 
1610 
3628800 
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ЭЙЕ, 方程 (3.25) 的 解析 解 为 : 


gee 1:24 1:9 4 E564. ree ӨК ГА М; l 48 EY 
z(s) =e? =1+8+ 3s? + 283 + 245% + 305° + 085 + 50405° + 303209 + 3628805 


1 10 b ea 
十 355685003 + 


例 3.14: 解 方程 : 
Z2(s) = ez — е*+1 +f e^'z(t)?dt. (3.26) 
0 
在 Maple 下 输入 : 
expr5:=(x(s))*2=exp(2*s)-exp(s)+1+int (exp(-t)*(x(t))72, 
t-0..8); 
mainproc(expr5,10); 
即 得 求解 过 程 为 : 
The equation can be converted into the following algebraic 
equations: 
2-120 


2aoal + ад? — 3 = 0 
2адаз + ai? — $ ад? + ада - $ = 0 
2 алаз + 2 адаз + $ ада + $ ao? — $ ада + $a)? 一 


17 


3 
2 
Ж 244 32001 一 

24 001 — д = 


2aga4 + 2 алаз + аз? + $ agaz — } адаз + } araa 一 


Ере ul Ва 


十 ааз + 2 ала4 + 2азаз — 11 = 


2 адаб + 2 алау + a3? + 2 азад — тру ао? +4 34203 — $ ааз — 35 a1? + 10102 


duutiunc фо taad leu qa? жашы th 
2000r + Seite + Zasas + Zazas — $ azas + оов + dicat + {озо + $ aras 
— 15 021 + 2 адаа + аз? — 2 agas + 2 agas + 1; аз? — d; aoas — d; aaz 
—2aia4 + d; аойз + др a0? — 85 = 
iani арр 00? + { лаа + 8 aoas + gg 0102 — ра — дм? фаз + aa? 
я aas — į aas + 1 aias + 2 алат + { азаз 一 10204 + 1 азаз + 1 азад 


32 Taylor 级 数 求解 法 ns 


+2a3a5 + zd; 2041 — 高 0002 + dg 003 — d; араа — 1 аоав + $ A007 
十 2aza6 — эзш = 0 


1 1 1 1 2 1 2 
2agag + acis а? 一 kj 0104 — ту 0005 — gig ааг + gasp @12 + эв a2? + fg as 


+} a4? + dig ааз + 5 алау — $0106 + 2 алат +2910 Fy 25 + $ азаа 


1 
3 4205 一 H азаа +2 5 2305 + 2a3ag + 2a4a5 一 й aoal + 3535 0002 
1 1 2 
— у 2043 + ig 2004 + $ 2046 — 2 agar + 2 agag + $ азав 


+2 азат — 13d; = 0 


1 
20010 — звзӊаб 207 + ig 9194 + iig 0005 + ggg 9192 — здр 12 — тїр 92° — ду ав? 
-ġa + a" - ай mes -$ ов +5 9106 -4 фот *iaas 
ia 4109 + ту 0203 一 4 gg 2204 + 5 азаѕ + 5 азад — i 5.0395 ti азаб 
+2 азал + $ аааз + заат + TR aoal — тудуу 2002 + AGG 2043 
— 5 2044 — 1; + $ aar- d + } agag — 1 аза, 
600 2004 — 3g 2046 + то 20 5 0008 + Б 0049 一 0206 
+2 азав + $ азал -ia = 0 
Solve this algebraic equations, we can get: 
{ао = 1,41 = 1,42 = 3,03 = 4,04 = 35,05 = трав = 0,97 = ag 
а zar zi 
ав = 10350,99 = 36280: 210 = 3678500} 
Then the solution of the equation is as follows: 
a(s) =1+8+ 582 4 883 + dosi + dos + 0585 + os + mm aos? 
+ 


1610 
3628800 


ЖЖ (3.26) 的 解析 解 为 z(s) = е", 显然 , 机 械 化 算法 mainproc 给 出 的 是 其 10 
Bt Taylor 多 项 式 近似 解 . 

"Fifi, 我 们 再 通过 例子 说 明 机 械 化 算法 mainproc 对 于 第 一 种 Volterra 积分 方程 
的 求解 也 是 有 用 的 . 我 们 选取 两 个 例子 , 一 个 是 线性 方程, 一 个 是 非 线性 的 . 


例 3.15: 求解 第 一 种 Volterra 积分 方程 : 
[ 5-!z(t)dt = coss. (3.27) 
o 


在 Maple 中 输入 以 下 命令 : 


expr6:-int(exp(s-t)*x(t),t-0..s)-cos(s); 
шаіпргос(ехргб,10); 


即 可 得 下 述 求解 过 程 : 
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The equation can be converted into the following algebraic equations: 
ao 一 1=0 

а 09 = 0 

а + ъа + рад + = 0 

аз+ 102 + фа + ра =0 

аа + ias 50 + а + да д = 

ав + а + d5 a3 + d az + jig a1 + jig ao = 0 

ав + § as + dp a4 + тїр as + sig 02 + туа + 950 + 90 = O 

ат + } as + gy as + gig 4 + gig 03 + зур 22 + gogo @1 + goro 20 = 0 


ав + 07 + р ав + 3505 + туал + giao 43 + zgleo 72 + 303501 3032900 — 1р = 0 


a9 + $ as + 73 ат + gig 06 + oza 05 + туїзр 44 + 50080 03 + таб 92 + gimp 01 
1 = 
bees 29-0 


ayo + 35 9 + ds ds as + тїр 0t + garo 26 + эур 25 + 15 二 05 24+ бубу 03 + T814405 02 


+ 2800 1 + 558800 00 + 360806 = 0 
Solve this algebraic equations, we can get: 
1. 
{ао = 1,01 = 一 1 aa = —},a3 = ъа = = а = ds = 一 南 ， 


EM PET д 
ал = йз = 10570,49 = — sedes: 010 = — 367500 
Then the solution of the equation is as follows: 


= 154 1454 Lot 153 64-1 d lus 1 59 
(з) =1—s— 25° + 683 + 045% — 998° — v5 + 501057 + 408705" — 3028805 
1 10 
7 36288005 
方程 (3.27) 的 解析 解 为 : 
2(s) = coss sins = 1—s— 182+ 183 + 8% — 13555 — 90589 + sags” + agio? 


= РЕР 
3628805 — 30288005 + 


91 3.16: 解 方程 : 


e7?!3?(t) dt = es — 1. (3.28) 
0 


由 Maple 命 今 : 


expr7:=int (exp(-2*t)*(x(t))°3,t=0..s)=exp(s)-1; 
mainproc(expr7, 8); 


3.2 Taylor 级 数 求 解法 Ts 


即 可 得 到 : 


The equation can be converted into the following algebraic equations: 


1-а =0 


1. 
—ag?a3 一 aoal2 一 $a’ + 2ao2zal +4 — 0 
l3 3 1 3 3 3 1 
di + 00a; — $ ауаз — 1ai? — $ аа + $ aom? — $ адалаз + ao? = 0 
3 6 2 6 2 3 12 3 2 3 2 
—$ ао?аа — $ ao?aa + 2 a1? — $ ада? — тє ao? +  aga1a2 — $ адад? — $ a;2a2 
4 ap? 6 6 an? La 
cgao'a| — $ a90103 + $ араз + т = 0 


1 2 
一 ao2as — $ a1? + aoa22 — 1 ao?as + ao?a4 — } адѓаз — aga2a3 + & ao? — 1 адал? 


—2аоааз + ауаз + $ aga? — aga1a4 + 2 адалаз — $ ауаз + 2 aoa + +% 


3 6 


6 6 2 
— $ aga2a4 — $ a1a2a3 — $ ao?a4 — 2 ада]? 


ET 
—$а12а4 + $ а?аз — $ адаз? + $ aya? + 4 ад?аз — 2 ap?a2 — 3 ag?ag 
-$ aa + 12 aga1a4 + ў a? + $ aoaia 一 $ agaa? + $ аоѓау – 12 aga1a3 
+3 аоа + aig = 0 


6 4 
— 7 400145 — aig ag? + 2 Qoa2a3 


0 


3 адата T $0204 - $ agaza: = 3 аоазаа = $ аоалаз =. $ 200205 ES $ aoa124 十 aoala3 


1218.8 tg Big 3 3 1 
"gis a0? — $ 404146 — 35 a1? + 1 02° + $ азазаз — $ атаа + ту ада? 


1 2 1 1 1 
+ а0а2? + 4 адаз? — 1 аоѓаз 一 3; арал + 35 ааз — 3 ao?as + $ aoas 
—фао®ат + $ a^a, + ааз — $ а?аз + З азаа — 8 a1?as — $ ааз? 


2_3,,2 i-o 
2103" — & a2°a3 + 35335 = 0 
一 2 zs =4 2 8 4 2 
з 000206 — 3 400105 — 3 490204 一 $ Q9035 + $ 000203 + 3 аразаа — $ ауауат 
+45 100102 + $ aoazas + $ 90104 — $ 00103 一 зр аф + $ адалав + ту a1? 


2 3 4 4 2 2 4 2 
— 9 02° — $410203 + $ 010204 — $ 10205 — $ 214304 — 33s 001? — 2 адаз? 


24.4 a 8 a2 4 102 4 a?as — 2 a5? 2 
2005? + ду ао?аз + gås 00/41 — тз; 40°a2 + $ ао?ав — $ ао?ав + 2 ag?az 
1 2 2 2 2 2 

—3 ao?as — $ ao?a4 — $ а?аз + $ алаз — 2a1?a4 + $ a1?as — 1 ал?а 

PE ааа 25:1 1052 lod. 13552 1 

十 5ala2 + $ ааз” + заз?ѓаз — 5 a2°a4 — 54203” — 5 адад? + sis; = 0 


Solve this algebraic equations, we сап get: 


= = =i =1 = = =h се 80 = uh 
{ав = 1,а = Laz = }, as = 0,04 = dp a5 = 720° 26 = 72 07 = soap 05 = 1030} 


Then the solution of the equation is as follows: 


= 12.13.10: lo, ll; 1.7 l ев 
as) =1+8+ 55 ur + 94° + qx + 720° + 5040° + 303207 


容易 验证 (3.28) 的 解析 解 为 : 
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ЕРЕ Ss 1:3 1:91 4 1 45 1 46 lr 1.581. 
т(в) =e =1+8+ 582 + 683 + 045° + ps5 + 208° + 50405 + 3032? 十 


最 后 我 们 给 出 一 个 利用 机 械 化 算法 mainproc 求 解 积分 一 微分 方程 的 例子 . 3€ 
于 更 复杂 的 积分 一 微分 方程 的 求解 问题 我 们 将 在 下 一 章 讨论 . 


例 3.17: 求解: 
a" (s) = 1+ зе? – f 
0 


expr8: =diff(x(s) ,s$2)=1+s*exp(s)-int (exp(s-t) *x(t) ,t=0..s); 
mainproc(expr8,8); 


即 可 得 到 以 下 结果 : 


-t z(t) dt. (3.29) 


在 Maple 中 输入 : 


The equation can be converted into the following algebraic 
equations: 


а = 0 

о +a9-1=0 

аз + ра 十 去 ao -1=0 

аз+ {+ + $007 $ =0 


аа + аз + а + а + да 4 = 0 


а атаана i = 0 


ав + $ as + dj a4 + тоз + ig a2 + туа + + — ту = 0 


ат + 7.06 + 4595 9594 + вр 03 + ово 02 + зп йз + р 00 — т = 0 


1 à 1 Sls 
ав + фат + 36 ав + 53 5 + тер 94 + 5700 03 + zore 42 + бэй %1 + m0330 00 — в = 0 


Solve this algebraic equations, we can get: 


1 1 1 1 
{ao = 0,а = 1,02 = 3,03 = §,04 = 34,05 = iig: 06 = тёр+@т = go: 08 = дуб } 
Then the solution of the equation is as follows: 

14,1 1 1 7 15 V 


РА 12,1 5 в 
т(в) = 3+ 58 +65 t3 8 十 120? + 2205 + 5040° + 203205 


容易 验证 , TE (3.29) 的 解 为 : 


lola 1 1 1 
хе а аца 4 6 7 
as) =e st ge +685 + 54% *159* + 7005 ^ 5040° + 40320 


P+ 


3.3 Volterra 积分 方程 组 求解 EE 


3.3 Volterra 积分 方程 组 求解 


前 面 讨论 了 Volterra 积分 方程 求解 及 其 机 械 化 问题 . 但 值得 注意 的 是 , Volterra 
积分 方程 组 求解 的 文献 并 不 多 见 . E.Babolian 回 , H.S.Goghary [41 各 自 讨论 了 利用 
Adomain 分 解法 求解 线性 积分 方程 组 的 问题 , L.M.Delves 和 J.L.Mohamed 在 文献 

(26) 中 , 介绍 了 两 个 方程 组 成 的 方程 组 的 求解 过 程 . 在 文献 15, 01, 114 中 , 作者 简 
单 介 绍 了 求解 Volterra 积分 方程 的 问题 , 也 提 到 了 使 用 迄 代 法 可 以 求解 , 但 并 未 对 
如 何 求解 给 出 详细 的 介绍 . 
本 节 讨 论 Volterra 积分 方程 组 的 求解 问题 , 并 在 此 基础 上 借助 Maple 建 立 机 械 
化 算法 . 
3.3.1 基本 算法 
考虑 Volterra 积分 方程 组 : 
Zi(s) — А fa ku (s t)zi()dt — Af? kya(s, 0) 200) 
= Af? kin(s, t)an(t)dt = fils), 
тә(в) — А fa ka (s. t)zi (t)dt — А fs ko (s, t)xa(t)dt 
— A Ja kan(s, t)tn(t)dt = fa(s), (3.30) 
En(8) — А f kni(s, t)a1(t)dt — А f° kna(s, t)ma(t)dt 
— A Ja knn(8, t)za(t)dt = fn(s). 
这 里 , 函数 fi(s) Є L^ (a, b] EE MBM, kij(s,t) (j = 1,2,---,n) 是 L- BRM, 入 
是 参数 , 而 zi(s) (i = 1,2,… , n) 是 要 求解 的 函数 . 
将 方程 组 (3.30) 重 写 为 下 述 形式 : 


ads) — ad [ые 0200 = fi(s), i= 1,2)---,n. (3.31) 
j=1"% 


假设 > 
Ti(s) = fi(s) + 3 Npin(s), i212, ,n. (3.32) 


n=1 
其 中 , ypin(s) (i = 1,2,… ,n) 是 要 求解 的 函数 . 将 (3.32) 代入 (3.31), 并 逐 项 积分 ， 
可 得 : 


E vest =È usse ota Ў э [/ kyl dend} (8.33) 
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令 和 的 各 次 宕 的 系数 为 0, 即 得 : 
ea() = È Si Fis (ost) (tat, 
(3.34) 
Pans) = X fz huis De m-i (dt, (m=) 


下 面 给 出 方程 组 (3.30) 的 求解 法 则 : 


定理 3.2: 假设 积分 核 函数 kij(s,t) € 1700,0) (5j = 1,2,---,n) 和 fils) € 
L? (a, 0 AF, 则 对 于 任意 A, 方程 组 (3.30) 有 唯一 解 : 


zi(s) = Yes, i-212,-,n. (3.35) 
其 中 , yio(s) = fils), @in(s) (n = 1,2,…) 由 公式 (8.34) EX 
证 明 : 由 kij(s,t) (53 =1,2,--- ,n) 和 fils) Gi 1,2,--- ,n) AR, 可 假设 
lki;(s,t)| < М, |fi(s)) < m. 

接 下 来 , 我 们 依次 计算 pan(s) (n = 0,1,2,---). 

lea(sl= [f(s)| < m, 

lea(s) = p» Je ks(s, DH (t| < È JË lhis(s,t)|-[fsldt < nmM(s — a), 

|pia(s)| = P Ja kij (s, tesi (t)dt| < È Se \his(8, t)| 12: (0918 < n?mM? f? (t — a)dt 

=m. Mr, 


КО p» fe kals, Deni (0 < F Је lean lesa (at 
- p 
«nM f; CMY = т. Mec", 


(3.36) 
HIT a < s < b, 从 而 (3.35) 的 通 项 满足 


ЧАМ (s – а))" 
П 


Des (9)] < т. PM 


(3.37) 
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由 此 , 对 任意 的 A, 正 项 级 数 (m. Аме" } cot. буру, (3.35) 在 fa b°] ( < 
b) 上 一 致 收敛. 
注意 到 迭代 过 程 以 及 关系 式 (3.32) 一 (3.34), 我 们 知道 和 函数 


zils) = 》 А"фы(з), i—-12n 
n-0 


在 区 间 [a,b] 上 连续 并 且 满 足 方程 组 (3.30). 证 毕 . 


然而 , 在 实际 计算 中 , 对 于 迭代 过 程 (3.34), 我 们 并 不 能 通过 有 限 项 结果 {pin (s)} 
得 到 其 通 项 公式 pin(s). 于 是 , 我 们 可 取 下 面 我 们 给 出 截断 误差 的 估计 式 . 


由 
(nM(s – а))" 


n! 


О] <m: (3.38) 


可 得 余 项 的 估计 式 为 : 


Rnt+1(s) = |А pinya (5) + А" pinyols) + А Зр +з(в) 十 | 
< [Him ere Arm амы pee d [m (еар Fati 
< Mtim. Meza + antam СМА + perg. Moa? 十 
(3.39) 
为 了 更 清楚 地 理解 迭代 法 求解 Volterra 积分 方程 组 , 我 们 给 出 一 个 简单 的 例子 . 
Pl 3.18: 求解 方程 : 


zl(s) — fo za(t)dt = з, 
(3.40) 
za(s) — fozi(t)dt = 1. 


X, 


ki1(s,t) = 0, kiz(s,t) = 1, kn(s.t) = 1, ka2(s,t) 20, fils) = s, fo(s)=1, A 1. 
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由 公式 (3.34), 我 们 可 以 得 到 : 


2 


pu(s)=s, (в) = %, 


vu) =, em(s) = $, 
waa(s) = $, фэз(в) = Pa 
puls) = 5. vals) = 8, 
was(s) = e. #25(5) = 新， 

Е А 


pie(s) = soap» Ya6(s) = f 


P17(s) = фо p27(s) = Tue 
К 

vis(s) = зба, Vals) = adis 
э 10 

pl9(3) = z0 — V29(5) = 307550- 


由 公式 (3.35), 可 得 方程 (3.40) 的 9 阶 截断 近似 解 为 : 


i 
zi(s) = fi(s) + È Фш(®) = 28+ {59+ 25° + 5 + рр to 
= 


i (3.41) 
a2(s) = fa(s) + У) paj(s) =1+ s? + dos + зур 55 + бу 88 os 
ja 
另 一 方面 , 我 们 可 以 得 到 (3.40) 的 解析 解 为 : 
zií(s)-e'—-e*, 7z2(s)=—1+e’+e™. (3.42) 
显然 , z1(s) 和 z2(s) 的 Taylor 展开 式 如 下 所 示 : 
21(5) = е –е7* = 28+ 183 dus +, 
(3.43) 


то(в) = -1 +e e^ =+ +b st+ usó 


比较 (3.41) 和 (3.43) 可 知 , 迭代 法 是 求解 Volterra 积分 方程 组 (3.30) 的 一 种 有 
效 的 方法 . 另外 , 通过 例 3.18 的 求解 过 程 , 我 们 可 以 看 到 ,Volterra 积分 方程 组 求解 
的 计算 量 很 大 . 下 节 , 将 建立 基于 迭代 法 的 机 械 化 算法 . 


3.3.2 Volterra 积分 方程 组 的 机 械 化 算法 


我 们 可 以 应 用 公式 (3.32) 一 (3.35) 在 Maple 下 求解 Volterra 积分 方程 组 (3.30), 
其 求解 过 程 可 以 在 Maple 建 立 相 应 的 机 械 化 算法 VoltEqns, 源 代码 列 示 如 下 : 


VoltEgqns :=proc(funSet: : list ,n:: integer) 
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local xFunList,yFunList,intExprList,tempList,kList,i,j, 
Lam,Nf,temp,xList,Phi,PhiT; 
xFunList:-[]:yFunList:-[]:intExprList:-[]: 
kList:-[]:xList:-[]:temp:-[]: 
N£:-nops(funSet); 
for i from 1 to Nf do 
tempList:-parmeint(funSet[i]): 
temp:=[op(temp) ,tempList[5]]; 
od; 
Lam:-lcm(op(temp)); 
for i from 1 to Nf do 
tempList:-parmeint(funSet[i]): 
xFunList:-[op(xFunList),tempList[1]]: 
yFunList:-[op(yFunList),tempList[2]]: 
intExprList :=[op(intExprList) ,tempList [3] 
*tempList [5] /Lam] : 
if nops({op(expand(intExprList [i] ))])<>nops(funSet) 
then print(‘Input Data Error‘): return: 
end if: 
kList:=(op(kList) ,tempList [4] *tempList [5] /Lam] : 
end do: 


lprint(‘Here,the parameters of the system are as follows:‘); 


for i from 1 to nops(yFunList) do 
printf ("f [Жа] (s)=%a, ",i,op(i,yFunList)) ; 
od; 
printf("\n"); 
for i from 1 to nops(op(1,kList)) do 
for j from 1 to nops(op(i,kList)) do 
printf ("k[%a%a] (s,t)=%a, ",j,i,op(i,opCj,kList))) 
od; 
od; 
printf("\n"); 
lprint('and'); 
print (lambda=Lam) ; 
Phi:-[subs(s-t,yFunList)]; 
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for i from 1 to n+l do 
PhiT:=expand (subs (seq(x[j] (t)=Phili,j],j=1..nops 
(xFunList)) ,intExprList)); ` 
Phi:=[op(Phi) ,subs(s=t ,PhiT)]; 
od; 
Phi:=subs(t=s, Phi); 
lprint(‘So, we can get the approximate solution as 
follows: ‘); 
for i from 1 to nops(xFunList) do 
tempList:- add(Lam^(j-1)*Phi[j,i],j-72..n*i1)*Phi[1,i]: 
tempList:-polynsort(tempList,s): 
print(x[i](s)-tempList): 
od: 


end proc: 


这 里 , 参数 funSet 是 要 求解 的 方程 组 的 信息 , 而 a 是 迭代 次 数 . VoltEqns 中 子 程 
序 parmeint 的 主要 作用 是 获取 描述 方程 组 的 信息 , 提取 К, (8,0), fi(s), A Ж la, s]( 参 
见 2.1.2). 而 子 程序 polynsort 是 我 们 建立 的 适用 于 本 节 问 题解 决 的 排序 算法 , 详细 
内 容 见 3.4 节 讨 论 . 

例如 , 要 求解 例 3.18 即 方程 组 (3.40), 我 们 所 要 做 的 事情 就 是 在 Maple 中 按照 要 
求 输入 方程 组 的 信息 并 设 定 迭 代 次 数 , 如 下 所 示 : 


expri:-x[1] (s)-int (x[2] (t) ,t=0..s)=s; 
expr2:=x(2] (s)-int (x[1] (t) ,t=0..s)=1; 
VoltEqns({expri, expr2] ,12); 


然后 , 机 械 化 算法 VoltEqns 立 即 返回 结果 形 如 (3.41). 


3.3.3 ”应 用 算 例 
例 3.19: 求解 方程 组 : 
ал (8) — fori(t) dt— Joa (t) dt = з, 


(3.44) 
тә (в) — fo 21 (t) dt — foo (t) dt = 1. 


在 Maple 中 , 输入 以 下 命令 : 


“3.3 Volterra 积分 方程 组 求解 ds 


expri:-x[1] (s) -int(x[1] (t) ,t-0. .s) -int (x [2] (t),t=0..s)=s; 
expr2:-x[2] (s)-int (x[1] (t) ,t=0..s)-int (x[2] (t) ,t=0..s)=1; 
VoltEqns([expri,expr2],10); 


即 可 得 到 求解 结果 : 


Here,the parameters of the system are as follows: 

£[1] (s)=s, f[2] (s)=1， 

k[11](s,t)-1, k[21](s,t)-1, k[12](s,t)-1, k[22](s,t)=1, 
and 

A=1 

So, we can get the approximate solution as follows: 


РА 32 3 la ls 1 6 2 T 1 8 1 9 10 
т (в) = 28+ 55 +5 +5 tes tr? + 105? * + gas? + ОБ 
1 6 B 1 9 1 10 
15° * 705° + 210° tos’ * ams? 


3 1 
аз (5) = 1 в os e sett ph 


易 知 , 方程 (3.44) 的 解析 解 为 : 


其 Taylor 展开 式 为 : 
a(s) = $e +4- 3 = 25+ $5? + 59+ dott 185 + Д 06+ 125087 + 188 
cgi 89 + gg 31 十 …， 
Ta(5) = fe*—F+P=ltst 882 s + dst [55+ 254 12.87 +55 


ИНОЕ AE | ciis 
+545 5 + 58 + 


例 3.20: 求解 第 二 种 Volterra 积分 方程 组 : 


ту (в) — fo(s — t) zi (t) dt + [утә (t) dt = $ +2841, 
(3.45) 
тә (s) — fo 52, (t) dt — f Ezr (t) dt — s +1. 


0 
在 Maple 下 输入 : 


expri:-x[1] (s)-int((s-t)^2*x[1] (t) ,t=0..s)+int(x[2] (t), 
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t=0..s)=s°2+2*s+1; 

expr2:=x [2] (s) -int((s-t)/2*x[1] (t) ,t=0..s)-int((s-t)/2 
*x[2] (t) ,t=0..s)=s+1; 

VoltEqns(([expri,expr2],6): 


即 可 得 机 械 化 求解 过 程 : 


Here,the parameters of the system are as follows: 

£[1] (s)=s°2+2*s+1, £[2] (s)=s+1, 

k[11](s,t)-t^2-2*t*s*s^2, k([21](s,t)=-1/2*t+1/2+s, 

k(12](s,t)=-1, [22] (s,t)=-1/2«t+1/2*s, 

and 

A=1 

So, we can get the approximate solution as follows: 

а (в) =1+s+5 s+ 5 s? +z TES FEE 89 + gao 87 + mm 88 + LÀ 


1 510 23 gil 47 12 19 4322 m 
十 337200 5 +68386688009 +51093504009 +14233190100 5 ~ 43589145600 9 
= EP 553 41. sot абар aulas 1 49 
та (в) =1+8+582+ d s? +24 sí + үру 9° + т 55 + ұру 87 + px 38 + збо 5 


1 10 з gii n 12_ _ 19 182-3 14 
+360800 5 30412800 9 + 300861004 5 — 192813110100 9 — 11480268800 5 


易 知 , 方程 (3.45) 的 解析 解 为 : 
(8) = z2(8) = e° = 1+в+ 587+ {5% + 25% + 095 + zag 8° + sans” + apos 


l 9 1 g10,... 
十 5625505 + 36285008 + 


例 3.21: 求解 第 一 种 Volterra 积分 方程 组 : 


So (t з) 21 (0) dt + [уто (t) dt = s, 
(3.46) 


Sor (t) dt — fo(s t)z (t)dt = $. 
在 Maple 中 输入 : 


expri:=int ((t-s)*x[1] (t) ,t=0..s)+int(x[2] (t) ,t=0. .s)=s; 
expr2:=int (x[1] (t) ,t=0..s)-int ((s-t)*x[2] (t) ,t=0..s) 
=s*s/2; 


VoltEqns([expri,expr2],15); 


即 得 求解 过 程 为 : 
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Here,the parameters of the system are as follows: 
f[1](s)-s, f[2](s)-1/2*s72, 

k(11](s,t)-s-t, kl[211(s,t)--1, 

k[121(s,t)--1, k[22](s,t)-s-t, 

and 

A=1 

So, we can get the approximate solution as follows: 


ЗА 158b cp 3 GT 1_ 49 1 gu 1 13 
т (в) = 25+ $ 5% + 608° + сузу 9" 十 T8145 5 + 19988400 5. ^ 3713910100 5 

= 1497+ аба аба cl аба 1 glo. 1 12 1 14 
тз (з) = 15^; 8*-+ 365 89-0160 8° + Taraa $+ 239500800 $° + 33589148800 3 


容易 验证 , 方程 组 (3.46) 的 解析 解 为 : 


ж\(з) =e*-e* 


= 198 155 1 47 үс Ж її 1 13 4... 
=28+ $5° tags + 05005 + juo? + 0S + 31351040055 t+ 


mo(s) = е* +е7* – 1 


Е 24 1.444.594 158 1 410 1 412 1 14 
一 1 十 9 + 798° + gigs + 1608" + Taras + 7905008005. + 45801455005 
FP 
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本 章 研究 了 Volterra 积分 方程 的 Neumann 级 数 与 Taylor 级 数 求 解法 , 以 及 求 
Ж Volterra 方程 组 的 迭代 法 , 在 此 基础 上 , 在 Maple 平 台 建立 了 相应 的 机 械 化 算法 ， 
利用 这 些 算法 , 可 以 获得 此 类 积分 方程 (£8) 的 解析 解 或 者 近似 解 . 应 用 算 例 表明 ， 
上 述 算法 是 求解 Volterra 积分 方程 (组 ) 的 高 效 算法 之 一 . 这 将 为 Volterra 积分 方 
程 组) 求解 提供 参考 . 

在 算法 VoltEqns 设 计 过 程 中 , 我 们 发 现 Maple 下 用 于 排序 的 命令 sort 的 一 个 漏 
F, 即 sort 只 能 将 代数 表达 式 按 递 减 的 顺序 排列 ， 而 我 们 无 法 得 到 升序 的 排列 ， 虽 
然 , Maple 下 sort 的 帮助 文件 说 明 此 命令 能 够 完成 升序 的 任务 , 但 我 们 尝试 了 所 有 的 
方法 均 无 法 实现 我 们 想 要 的 结果 . 而 在 Volterra 积分 方程 组 求解 过 程 中 输出 结果 的 
升序 排列 对 我 们 判断 迭代 次 数 n 的 增加 产生 的 变化 是 重要 的 . 

事实 上 , 在 求解 Volterra 积分 方程 组 时 , 要 想 获得 满意 的 结果 , 我 们 需要 通过 数 
学 实验 的 方法 比 对 分 析 不 同 的 n 所 得 的 结果 , 然后 确定 合适 的 n 的 大 小 . 

由 于 这 个 原因 , 我 们 建立 了 对 函数 表达 式 进行 升序 排列 的 算法 polynsort, 这 是 
机 械 化 算法 VoltEqns 中 的 一 个 子 程序 . 其 源码 如 下 所 示 : 


polynsort:-proc(expr,x::symbol) 
local tempList,temp,tempStr,minPos,xPos,exprList,resList, i,j,n: 
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tempList:-[op(expr)]: 
exprList:-[]:resList:-[]: 
for i from 1 to nops(tempList) do 
tempStr:-convert(tempList[i],string): 
xPos:-searchtext(cat(x,'^'),tempStr): 
if xPos-0 then 
if searchtext(x,tempStr)<>0 then 


exprList:-[op(exprList), [tempList [i], "1" 
else exprList:-[op(exprList), [tempList[i],"O"]]: 
end if: 

else 
for n from xPos to length(tempStr) do 

if tempStr[n]-"*" or tempStr[n]-")" then n:-n-1: 

break: end if: 
end do: 
exprList:-[op(exprList),[tempList[i],substring 

(tempStr,xPos*2..n)]]: 
end if: 
end do: 
for i from 1 to nops(exprList) do 
minPos:=i: 
for j from i+1 to nops(exprList) do 
if length(exprList [minPos] [2])>length(exprList[j] 
[2]) then minPos:-j: 
elif length(exprList [minPos] [2]) -1ength (exprList 
[j] [2] ) and exprList [minPos][2]»exprList [j] [2] 
then minPos:-j: 
end if: 
end do: 
temp:=exprList [minPos] : 
exprList [minPos] :=exprList [1]: 
exprList [i] :=temp: 
resList:-[op(resList)*temp[1]]: 
end do: 


return op(resList): 
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end proc: 


国际 通用 计算 机 代数 系统 Maple 为 进行 科学 计算 提供 了 一 个 较 大 的 平台 , 但 无 
论 它 的 功能 多 么 强大 , 不 可 能 也 无 法 实现 所 有 的 科学 计算 , 即使 能 够 完成 的 工作 也 
可 能 存在 着 一 些 漏洞 . 这 就 需要 我 们 在 研究 过 程 中 能 够 利用 相关 数学 基础 设计 相 
应 的 算法 弥补 这 些 不 足 ， 这 或 许 是 在 通用 计算 机 代数 系统 下 进行 数学 机 械 化 需要 
注意 的 一 个 重要 问题 . 


Жав ЧЕ ЇН? — 微分 方程 求解 及 其 机 械 化 


文献 Q84 研究 了 如 下 形式 的 非 线性 Volterra-Fredholm 积分 方程 : 
T b 
via) = f(a) x f kle DOP +a ьо, диа, 
而 文献 (189 考虑 了 如 下 形式 的 高 阶 线性 Volterra-Fredholm 积分 一 微分 方程 ; 


m T b 
Y Py? (а) = fle) +r f kis (tdt + Ae / ko(z, t)u(t)dt, 


j-0 
本 章 , 我 们 将 考虑 如 下 所 示 的 高 阶 非 线性 Volterra-Fredholm 积分 — 微分 方程 : 


m T b 
Y PWE) = 16) + [iss Dto dta | Roto tide (ы) 
24 й Д 


其 中 Р,(2)( = 0,1,---,m), f(z), ki(z,t), ko(z, t) 是 在 区 间 a < z, t «bn C (n> 
т) 阶 可 导 函 数 ,ab А, А 是 常数 , р, а 是 正 整数 . 方程 (4.1) 的 解 可 表述 为 如 下 形 
ES 


N 
уа) = У EDS -£f, a<z, <b, N2m. (4.2) 
j-0 ^ 


这 是 一 个 在 = = € 处 的 N 阶 Taylor 多 项 式 函数 , 这 里 y (6) (n = 0,1,… N) Ж 
待定 系数 . 
4.1 基本 算法 


参考 文献 184 185 中 的 算法 设计 , 本 节 , 我 们 将 建立 求解 高 阶 非 线性 Volterra- 
Fredholm 积分 - 微分 方程 (4.1) 的 算法 . 
首先 , 我 们 将 (4.1) 改写 为 : 


D(z) = f(z) + MV(z)--AgF(z) 或 D(z) = Қа) (43) 
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其 中 


D(a) = Djo Pj(z)y9) (a). 
= fe Gs ty())Pdt, (4.4) 

F(z) = f? kalz, t){y(t)]*at, 
I(x) = f(z) + АУ (т) + A2F (2). (4.5) 


这 里 , D(z) 称 为 微分 部 分 , T(z) 称 为 积分 部 分 . 
要 得 到 形式 如 (4.2) 的 解 , 我 们 必须 将 (4.1) 即 (4.3) 关于 т RẸ n K, f 


D™ (x) = 1 (2), (4.6) 
为 了 讨论 方便 , ic: 
D(z) = D(z), I(x) = Ц(т). 


下 面 , 分 析 表 达 式 D(z) 和 10 (2). 
易 知 : 


DO(z) = (Po(z)y(z)? + RY ++ [Pr (2)y (2) , 
(n=0,1,--,N, N 2 m). 


(4.7) 


应 用 Leibnitz 规则 (处 理 画 数 乘积 的 导数 的 法 则 ), HE (4.7) 简化 并 代入 z = £, 可 得 : 


DE - EX ) k) (£)y**? (6), (n = 0,1, , N). (4.8) 


RBE (1.8) 可 改写 为 矩阵 形式 : 
D-WY, (4.9) 
其 中 ， = 
у= |090) 000) - vox] (4.10) 
是 要 确定 的 . 而 
= [Wnr]; n,k=0,1,---,N, (4.11) 
AME W 中 的 元 素 由 下 式 决定 : 


War = X ( З ) Рена QE). (4.12) 
s=0 


k-m+s 
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#r<0, W 
PPO = PPO = = PPO =0 


#j<0Hj>i, (; ) =0, 这 里 i, j, т 是 整数 . 在 这 种 情况 下 , 方程 (4.12) 对 于 


n<k—m(n=0,1,---,N-m-1; k=m+1,m+2,---,N), HA: 
Илк = 0. 
另 一 方面 , 对 于 积分 部 分 T(z), 易 知 当 n 2 1 时 ， 


IM (x) = f™ (x) + АУ@®(ж) + F(z), 


其 中 ， 
УФ (ж) = 3 (fr k(x, t)lylt)]Pdt) , 
FO) (x) = [ "(уе 

i 


Yi) = OP. (0) = Ш)". 
将 式 (4.15) 代入 (4.14), 可 得 : 
VW(z) = &( f se. ov ou) 
Y mennaj S Eo 


i=0 


-i-1 -k-i- 
У 人 dag ene) 
k=0 i=0 


+ [73 БЫ Pe. 8"hGDy (ан 


其 中 ， 


ka- Med 


t-r 
而 b 
F(z) = f PRO egg 


利用 Taylor 展开 定理 , 可 以 得 到 : 
0-31x*900-0* G-13. 
k=0 


(4.13) 


(4.14) 


(4.15) 


(4.16) 


(4.17) 


(4.18) 
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应 用 Leibnitz 规则 并 将 (4.18) 分 别 代入 (4.16) 和 (4.17) 可 得 : 


n-l1n-k-1 А 
wo = У У) ete vi^) 


k=0 i=0 k 
* 9^ k (2,0) we 
+ / eae is ү dt, (4.19) 
b gn on 
pog = [ TREO [= td- d. (420) 
| NT 


由 此 可 得 : 


I) = FOO + MVE) + PME) 
«ques УҢ tae 


k=0 i=0 
£ 
+ a fi Then B а 中 
k=0 
АЕТ [9559 reln ol E Lyme 9а 
= (е) +A (£ НҮ (E) + Yuri ©} 
к=0 к=0 


+ У Каку), (4.21) 
k=0 


在 实际 计算 过 程 中 , 我 们 可 使 用 下 式 作为 (4.21) 的 近似 式 : 


k=0 k-n 


n-1 N 
19) = (е) +A b> (Hnr +Tax) Y (£) + У) тхо} 
N 
+ уки (6). (4.22) 
k=0 
3 n=1,2,--+; k=0,1,-+-,n—1(n>k) Ff, 对 于 Hay A: 
El ( n-i-1 А 
Ha- У; ( i ) LC (423) 
i-0 
当 n ЕВ, 
Hay = 0, 
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4 n,k —0,1,2,-- 时 ,对 于 Tae 和 Eu 分 别 有 : 


£ 
dose al = zx DO (erat (4.24) 
Knk = af Ec (t — Oat. (can 
z= 
而 
xY"o- DY ( " n ' Jamora: (21,2), (429) 
tita n ists 


其 中 , ty (7 = 1,2, 7,5) 为 非 负 整数 且 : 


n A n! 
tita ti! ta! e-t! 


事实 上 , 利用 公式 (4.26), 我 们 可 将 Vi(6) (i = 1,2) 转化 为 要 确定 的 系数 
y (6), y? (6), --- (6) 


的 形式 . 
据 此 , 如 果 n, k = 0,1,2,… , 入, 可 得 : 


IOE) = FOE) + м Deg TokY (9 (6) + A2 Dg Kon YS" (€), 
IUE) = FE) x {OE (Hnr + Tar) Y) + УЛ Tu Y (427) 
YR KY) (n212.-:k-01,,N) 


统 (4.27) "E Um FAR JE X: 
I-F-A TY] + A4KY;. (4.28) 
考虑 到 (4.9) 5 (4.28), 我 们 可 得 : 


WY =F + TY} + MKY;. (4.29) 
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Et, 
Woo sà Wom 0 0 sis 0 
Wio gre Wim Wi,m+1 0 
Wao ae Wom Wa,m+1 Wam+2 UL 0 
WN-m-io ° Ww-m-üim WN-m-imei WN-m-ima2 c 0 
Ww-mo >> Wn-mm Wn-mm+1 Их-тт+ с Wn-mn 
Wwo dl Wim Wy,m+1 WN,m+2 v0 Www 
F-([fO() /%(е) Me], 
[ Ko Ko Kem - Kon 
K= Ку Ku Kn … Kin А 
Kno Ку Кю Кух 
| To To Toz ve Ton 
Hio + Tio Tui Ti Spr HN (4.30) 
T= | Hao-T»  Hn-^Tn Ti; so Tın |, 
L Нло + Тмо HwictTwi Нм + Туг … Twn 
* (0) (1) (N) 17 
уг [LPO WE 0909], 
* (0) (1) (D LAIT 
Үр = [vf (с) Y?(9 У-Ү; ©] ; 
而 记 : 


у= [090 PO we] ite и yw] (30) 


就 是 我 们 要 求 的 (4.2) 中 的 Taylor 多 项 式 函 数 的 系数 . 
将 (4.30) 代入 (4.29), 并 将 其 转换 为 关于 yo, а, cou 的 代数 方程 , 求解 代数 
方程 组 即 可 确实 Taylor 系数 y™(E) (n = 0,1,… ,入 ), 于 是 我 们 可 得 方程 (4.1) 的 
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解 为: 
иа) = Y; zw (e - £^. (4.32) 


Ж 1: 如 果 选 择 = a, MABE (4.28) BH: 


10 (a) = fO (a) + A2 Y Коку (a), 


(4.33) 
19а) = f(a) + Ar DRI) Нк + A2 Ууу Kun YN” (6). i 
考虑 到 方程 (4.30), 则 方程 (4.1) 的 解 为 : 
Na 
иш) = Уу ziv (a) - а)". (4.34) 


n= 


Ж 2: Ж Ar = 0, 则 系统 (4.1) 即 为 Fredholm 型 积分 一 微分 方程 ; 如 果 А» = 0, 
则 系统 (4.1) 即 为 Volterra 型 积分 一 微分 方程. 
Ж 3: 在 系统 (4.1) 中 , 若 Ni = А = 0, 则 (4.1) 即 为 常 微分 方程 . 
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从 上 节 的 推导 过 程 特别 是 公式 (4.29) 的 计算 可 知 , 利用 本 文 所 建立 的 算法 求解 
高 阶 非 线性 Volterra-Fredholm 积分 一 微分 方程 时 计算 量 很 大 . 因此 , 在 Maple 下 建 
立 基 于 上 节 结 果 的 机 械 化 求解 (4.1) 的 算法 显得 十 分 必要 . 

公式 (4.3) 一 (4.33) 可 方便 地 用 于 在 计算 机 代数 系统 Maple 下 建立 求解 高 阶 非 
线性 Volterra-Fredholm 积分 一 微分 方程 (4.1) 的 机 械 化 算法 , 整个 求解 (4.1) 的 
Taylor 多 项 式 解 的 过 程 都 可 在 Maple 下 进行 算法 设计 和 程序 设计 . 而 运用 机 械 化 算 
法 求解 方程 (4.1) 时 , 我 们 所 要 做 的 所 有 事情 就 是 输入 方程 的 信息 , 机 械 化 算法 将 会 
自动 给 出 方程 (4.1) 的 Taylor 多 项 式 解 , 并 输出 主要 求解 步 又 . 主 程序 voltfredproc 
列 示 如 下 : 


voltfredproc:=proc (expr, N, c) 

local lexpr, rexpr, m, p, i, j, f, temp, pint, К, y_ba, 
a, b, lambd, Y, ТТ, W, K, F, y.star, T, А, В, Eqn, 
equn, CONST; 

CONST:=[(exp,1n,log,abs,sin,cos,tan,cot,sec,scs]; 

Y:=matrix(N+1,1, [seq(y(i],i-0..N)]); 

lexpr:-lhs(expr); lambd:-[]; rexpr:=rhs(expr) ; 


:94- жаж 非 线性 积分 - 微分 方程 求解 及 其 机 械 化 


k:=[]; y-star:=[]; y-ba:=[]; 
m:=degdiff (lexpr,y(x) ,x); p:=[]; 
for i from 0 to m do 
р:=[ор(р) ,coefdiff(lexpr,y(x) ,x,i)]; 
end do; 
temp:=[op(rexpr)}]; f:=[]; pint:-[]; 
for i from 1 to nops(temp) do 
if not has(temp [i] ,int) then 
f:=[op(f) ,temp[i]]; 
else 
pint:-[op(pint),temp[i]]; 
end if; 
od; 
f£:=convert (f,‘+‘); 
if nops(pint)=0 then 
lambd : =(op(lambd) ,0] ; 
a:=0; b:=0; k:=[0,0]; y-ba:=(0]; 
y-star:=[op(y_star) ,matrix(N+1,1,Yorother(unapply 
(y-ba[1],t) (x) ,N))] 
else 
for i from 1 to nops(pint) do 
temp: =parmeint (pint [1]); 
if nops(pint)=1 and type(temp[2,2],numeric) then 
y-ba:=[op(y_ba) ,0]; k:=[op(k) ,0]; 
lambd:-[op(lambd),0]; 
y-star:-[op(y.star),0]; 
i:=i+1; 
fi; 
y-ba:=[op(y_ba) ,temp[1,2]]; k:=[op(k),temp[1,1]]; 
if i-1 then a:-temp[2,1]; fi; 
if i-2 then 
b:=temp(2,2]; a:-temp(2,1]; 
else 
b:-0; 
fi; 
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lambd:=[op(lambd) ,temp [3]] ; 
y-star:-[op(y.star) ,matrix(N+1,1,Yorother(unapply 
(y-ba[i] ,t) G),N))1; 
od; 
if nops(k)=1 then k:-[op(k),0]; fi; 
fi; 
for i from 1 to nops(CONST) do 
if has(f,CONST[i]) then 
£:=convert (taylor(f,x-0,2*N) ,polynom) ; 
fi; 
for j from 1 to nops(k) do 
if has(k[j],CONST[i]) then 
k[j] :=convert (taylor (k[j] ,x=0,2*N) ,polynom) ; 
fi; 
od; 
for j from 1 to nops(p) do 
if has(p[j],CONST[i]) then 
pLjl :=convert (taylor(p[j],x-0,2*N) ,polynom) ; 
fi; 
od; 
od; 
W:-Wmatrix(N, p, m, c); T:=Tmatrix(N, k[1], c, a); 
F:=Fvector(f, N); K:-Kmatrix(N, k[2], a, b, c); 
A:-multiply(W, Y); TT:-[T, К]; 
if y-ba[1]=0 then 
B:=evalm(F) ; 
else 
B:=evalm(F+sum(lambd [Bi] * (TT [Bi] &*y_star[Bi]) ,Bi=1.. 
nops(lambd) )) ; 
fi; 
Eqn:={ }; 
for i from 1 to N+1 do 
Eqn:={op(Eqn) ,A[i,1]=B[i,1]}; 
od; 


lprint('The matrix form of the equation is as follows:‘); 
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print (WY=F+lambd [1] *TY [1] «1ambd [2] *TY (21) ; 

lprint (‘where‘) ; 

print (’W’=W,’T’=T); 

print (’F’=Matrix(F),’K’=K); 

lprint('Then we can get the following equations: ‘); 

print (Vector (op(Eqn))); 

lprint (‘The solution of this equations is as follows:'); 

equn :=[solve(Eqn,seq(y[i] ,i=0..N))]; 

if nops(equn)-1 then equn:=op(equn); else equn:-equn[1]; fi; 

print (’Y’=equn) ; 

lprint (‘Then we can obtain the Taylor polynomial solution 

of the equation: ‘); 

print (’y(x)’=subs(op(equn) , sum(1/n!*y [n] *(x-c)“n, 
*n'20..8))); 

end: 


在 主 程序 voltfred 中 , 参数 集 的 含义 如 下 : 


expr: 要 求解 的 方程 ; 
N: Taylor 多 项 式 解 的 阶 数 ; 
E: 要 求解 的 方程 关于 变 其 的 Taylor 级 数 展开 点 . 


例如 , 对 于 下 述 Volterra-Fredholm 积分 一 微分 方程 : 
z 1 
"+ ay! —3y—6*—2] sinzy’(t)dt sinze™'y?(t)dt 
y" + ху y-e n + f size y(t) 


在 voltfred 下 求解 此 方程 所 做 的 全 部 事情 就 是 在 Maple 中 输入 关于 此 方程 的 信 


expr: =diff (y(x) ,x$2)+x*diff (y(x) ,x)-3*y(x)=exp(x)-2*int 
(sin(x)*y^3(t),t--1..x)*int(sin(x)*exp(-t)*y^2(t), 
t=-1. .1); 

voltfredproc(expr, 5, 0); 


则 机 械 化 算法 voltfred 即 可 输出 该 方程 在 z = 0 处 的 5 И Taylor 多 项 式 解 . 


另外 , voltfred 中 包含 了 一 些 子 程序 , 诸如 Wmatrix, Tmatrix, Fvector, Kmatrix 


等 ,它们 的 作用 是 计算 (4.30) 中 对 应 的 矩阵 W, T, F, К. 作为 例子 , 在 此 列 示 Tmatrix 
的 代码 如 下 : 
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Tmatrix:=proc(N, ki, c, a) 
local T, H, T1, n, k, i, temp; 
T:=Matrix(N+1,N+1); 
H:=Matrix(N+1,N+1) ; 
T1:=Matrix(N+1,N+1); 
for n from 0 to N do 
for k from 0 to N do 
if n<=k then H[n*i, k+1] :=0 
else 
for i from 0 to n-k-1 do 
if i-0 then 
temp:-unapply(ki, t); 
else 
temp:-unapply(binomial(n-i-1,k)*diff(k1,x$i),t); 
fi; 
if n-k-i-1>0 then 
temp:-unapply (diff (temp(x) ,x$(n-k-i-1)),x); 
else 


temp: =unapply (temp(x) ,x) ; 


fi; 
H(n+1,k+1] :=H(n+1,k+1]+binomial (n-i-1,k)*temp(c) ; 
od; 
fi; 
if n-0 then 
temp:=unapply(ki, x); 
else 


temp: =unapply(diff(k1, x$n), x); 
fi; 
Ti[n*1,k*1]:-1/k!*int(temp(c)*(t-c)^k,t-a..c); 
if k»-n then 
T([n*1,k*1] :=T1 [n*1,k*1]; 
else 
T(n*1,k*1]:-Ti[n*1,k*1]*H[n*1,k1] ; 
fi; 
od; 
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od; 
return(T); 


end: 


其 余子 程序 的 算法 设计 与 此 类 似 , BHR. 


43 应 用 算 例 


本 节 , 我 们 通过 下 述 例子 说 明 voltfred 的 机 械 化 求解 过 程 及 其 高 效 性 . 
例 4.1: 我 们 首先 考虑 如 下 Volterra-Fredholm 积分 — 微分 方程 : 
1 
ту'—ху' +2y = z* - E - 2° - Bot Е + fe - yar f (w+ t)y(t)dt. 
0 
(4.35) 
在 Maple 下 , 我 们 只 需要 输入 以 下 关于 方程 (4.35) 的 信息 描述 的 命令 : 


expri:=x*diff (у(х) ,x$2)-x*diff (у(х) ,x)+2*y(x)= 1/12*x74 
-1/6*x^3-x^2/2-13/6*x*17/12* int ((x-t)*y(t) ,t=0..x) 
t+int ((x+t) *y(t) ,t=0..1); 

voltfredproc(expri,5,0); 


通过 机 械 化 算法 voltfredproc 即 可 得 到 方程 (4.35) 的 求解 过 程 及 结果 ; 


The matrix form of the equation is as follows: 


WY =F+ATY + A?TY; 


where 
200 0 0 0 000000 
01100 0 000000 
0002 0 0 100000 
W= ‚ T= , 
000-1 3 0 010000 
0000-2 4 001000 
0000 0 -3 000100 
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п 111 Li a2 а 
12 2 3 B 30 144 840 
-# 13 $ й mm 
E 0000 о 0 
F- ‚ K= 
E 0000 о 0 
2 0000 о 0 
0 0000 о 0 


Then we can get the following equations: 
2yo = itio bnt e ss Уз + aa V4 + gig Us 
и +y =- +y + gut 502 + aust usd nus 
2уз = —1+у0 
ys +3 = 一 十 办 
—2y4+4ys =2 + yo 
-3% = ys 
The solution of this equations is as follows: 
Y = {yo = 1л = 1,ys = 0, y4 = 0, ys = 0, y2 = -2) 
Then we can obtain the Taylor polynomial solution of the equation: 


y(z) 2142-2? 


易 验 证 y(z) = 1+ z — 2? 是 方程 (4.35) 的 解析 解 . 
通过 这 个 例子 可 以 看 到 , 为 了 可 读 性 , 在 主 程序 voltfredproc 中 , 我 们 运用 命 
令 lprint 和 print 设计 了 可 读 性 求解 过 程 . 这 样 , 通过 voltfredproc 求 解 高 阶 非 线 
性 Volterra-Fredholm 积分 一 微分 方程 的 过 程 就 像 我 们 用 纸 和 笔 求解 过 程 一 样 . 这 
种 可 读 性 输出 结果 对 于 计算 机 辅助 求解 方程 是 有 益 的 . 
应 用 Maple 下 的 计时 命令 time 可 获知 求解 此 方程 约 需 要 9.8 秒 . 由 此 , 可 见 该 算 
法 的 高 效 性 . 


Bj 4.2: 考虑 方程 : 
1.1 1 1 8 g Е 
у = rH ird o" 2 dt — 
z^y yy 5+5 307 ET «se (z—t)y(t)^ dt 2 f є+йд®@ 


(4.36) 
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在 Maple 中 , 输入 下 述 命令 : 


expr2:=x"2*diff (у(х) ,x$4)-diff (у(х) ,x$2)+y(x)=1/2+1/2*x"2 
71/30*x^6-1/6*x^4*8/3*x *int(((x-t)*y(t)72),t-0..x) 
-2*int((x*t)*y(t),t-0..1); 

voltfredproc(expr2,3,0); 


即 可 得 到 如 下 结果 : 
The matrix form of the equation is as follows: 


WY =F+A,TYi+A2TY2 


where 
10-1 0 0000 
0. 3^ +02. =1 0000 
W= , T= 

00 1 0 1000 

00 0 1 0100 
1 1 dolor 
2 2 3 8 30 
8 l1 1 
Н rti na 

r=|°|, K= 2 6 24 
1 0000 
0 ооо 0 


y-n-i-w-$u-in-iun 
u-yx-$-2y-n-$w- du 
y-l4yw? 
ys = 2yom 


The solution of this equations is as follows: 
Y = (ys = 0,41 = 0, yo = 1, yz = 2} 
Then we can obtain the Taylor polynomial solution of the equation: 


y(z) =1+27 


43 应 用 算 例 101: 


显然 , y(z) = 1+ 2? 是 方程 (4.36) 的 解析 解 . 

另 一 方面 , Taylor 多 项 式 的 阶 数 N 如 果 选 择 太 大 , 则 计算 复杂 性 高 ; 若 N ЖИ, 
则 计算 的 误差 可 能 会 增 大 . 例如 , 在 例 42 求解 过 程 中 , 如 果 我 们 取 N = 2 时 , 算 
法 voltfredproc 给 出 的 (4.36) 的 结果 为 : 


17 546 625 , 
уа) = 31 + gg1 7+ 961° : 


由 此 可 见 , 我 们 必须 在 Maple 下 通过 实验 的 手段 选择 恰当 的 NN 以 保证 解 的 精确 
Ж. ТЕҢ, 我 们 将 通过 下 面 一 个 简单 的 例子 来 说 明 数 学 实验 及 相应 的 结果 . 
例 4.3: 考虑 


y -1- f " y(t)dt. (4.37) 


输入 命令 : 


expr3:=diff(y(x) ,x)=1-int (y(t) ,t=0..x); 
voltfredproc(expr3,5,0); 


这 里 , 我 们 取 М = 5. 结果 为 : 


The matrix form of the equation is as follows: 


WY -F-c-ATY;-22TY2 


where 
010000 000000 
001000 100000 
000100 010000 
W= , T= 
000010 001000 
000001 000100 
000000 000010 
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1 000000 

0 000000 

0 000000 
F= , K= 

0 000000 

0 000000 

0 000000 


Then we can get the following equations: 


weal 
ya = -yo 
Уз = -y1 
Уа = —Y2 
Ys = —ys 
=- 


The solution of this equations is as follows: 
Y = {tn = 1,уз = 0,4 = 0,ys = —1,у = 1, yo = 0} 


Then we can obtain the Taylor polynomial solution of the equation: 
Y uw 


= ls 
у(х) == rid + 12? 


Ж М = 7, 则 可 得 方程 (4.37) 的 解 为 : 


ЕО ТЕ Е i.e dio 
Wz) =2- 062 + 002° — gag" 


Ж N=11: 
l5. lo, l ,sg 1 u 


= 1 3 
ula) =2- Ga" 1557 — 5040" ^ 3598807 ~ 399168007 


N= 15: 


PNG carey ee ИНЕ E i 149 _ _ i as 1 ia 
V(z)-z— 51° + p? — sug + ssigo ^ — sunem7 + azro T 


= 1 15 
1307674368000 


43 应 用 算 例 


事实 上 ，(4.37) 的 解析 解 为 
y(z) = sinz, 


而 sinz d£ т = 0 处 的 Taylor 展开 式 为 : 
- -1 
sing = > C qu A 


显然 , 解 的 精度 依赖 于 N 的 大 小 . 


1 H 
y" y) = т +2 zm -器 =-+ f vea [C (222+ xt?) y (t)dt 


在 Maple 中 输入 关于 方程 (4.38) 的 信息 : 


expr4:-diff(y(x),x$3)*y (x) -5*x^2/6-8*x/105-x-1/5*x^5 
*2/3*x^3-1*int(y(t)^2,t-0. x) *int((x^2*t*x*t^2) 
*(y(t))72,t70..1); 

voltfredproc(expr4, 4, 0); 


求解 结果 为 : 


The matrix form of the equation is as follows: 


WY 2Fc-ATY;-A;TY2 


where 
10010 00000 
01001 10000 
= [00100 1, 7={ 01000 
00010 00100 
00001 00010 
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-1 0000 0 
-u3 id Se NE 
105 3 4 10 36 168 

= реч 1 

Fel 3 к-|1{ 24 4 
4 000 0 0 
0 0000 0 


Then we can get the following equations: 


yo ys = —1 


Vy i + $ Yo? + 50у + $ Y1? + 50002 + § Aa + т Vols + 2 12° 
+27 Via + dg Yous 


ya = 5 + 10 yoyi + 02 + Zur? + {юз + Eie + т; Yous + 5 Y2? + ууз 
+35 Yous 


ys = 4+ 2y? + 2 yoya 

ya = булуз + 2yoys 
The solution of this equations is as follows: 

Y = {уз = 2,0 = -1,ys = 0, ya = 0, yı = 0} 
Then we can obtain the Taylor polynomial solution of the equation: 
y(z)-2-14 т? 

显然 , 这 是 方程 (4.38) 的 解析 解 . 但 是 , 在 该 例 中 , 如 果 我 们 取 N = 3 则 得 不 到 
任何 结果 , 而 当 N = 5 时 , 尽管 我 们 可 以 得 到 解析 解 y(z) = —1-- 22, 但 计算 耗费 的 
时 间 稍 多 . 从 这 个 意义 上 讲 , 对 例 4.4 来 说 , N = 4 是 合适 的 阶 数 选择 . 

Bl 4.5: 考虑 积分 方程: 


15.55.13 жс AD Е ku n E 
YR) T+t)y (tat 4.39 
(2) = 55 Е Е 25 К, )y @) (4.39) 
在 Maple 下 输入 : 


exprb:zy (x) --15/56*x^8*13/14*x^7-11/10*x^649/20*x^5*x^2 
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105. 


-x*int((x*t)*(y(t))^3,t70..x); 


voltfredproc(expr5, 5, 0); 


可 得 机 械 化 求解 过 程 为 : 


The matrix form of the equation is as follows: 


WY = 已 + 和 XITYI + №ТҮз 


where 
100000 
010000 
001000 
W= 
000100 


o o 


© 


0 
0 


o о о o 


Then we can get the following equations: 


yo = 0 


ys = 15 yo? 


ya = 21 уо (29i? + yoyz) 


o о о о о о 


о о 


о о о о о o 


о о о 


o о о о о 


ys = 54 + 54313 + 162 yoyiya + 27 yo" ys 


у = –1 
yo = 2 + 3 уо? 


о о о o 
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The solution of this equations is as follows: 
Y = {yo = 0,уз = 0, ys = 0, ya = 0,91 = -1,42 = 2} 


Then we can obtain the Taylor polynomial solution of the 


equation: 


у(х)=-т+ т? 
此 为 (4.39) 的 解析 解 . 
例 4.6: 求解 方程 ; 


у(х) = e* 一 lg: + I +f уа (4.40) 
3 3+ 


在 Maple 中 输入 : 


expr6:-y (x) -exp(x) -1/3*exp(3*x) *1/3*int((y(t)^3),t-70..3; 
voltfredproc(expr6,7,0); 


即 可 得 如 下 求解 结果 : 


The matrix form of the equation is as follows: 


WY =F+X,TY1+r2TY2 


where 
10000000] 00000000] 
01000000 10000000 
oo100000 01000000 
00010000 00100000 

W= ‚ Т= 
00001000 00010000 
00000100 00001000 
00000010 00000100 
00000001] [00000010] 
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1 00000000 
0 00000000 
-2 00000000 
一 8 00000000 
F- ‚ k= 
—26 00000000 
—80 00000000 
—242 00000000 
| -728 000000020] 
Then we can get the following equations: 
youl 
yı = yo? 
из = —8 + 3yo (2i? + your) 
ya = —26 + буу? + 18 yoyiy  3yo^ys 
ys = —80 + 3641742 + 18 your” + 24 yourys + 3 yo ya 
ув = —242 + 90 ya? + 60 y1?y3 + 60 yoyays + 30 yoyrys + З yo? ys 
yr = 一 728 + 90 у2® + 360 yryoys + 90 yi?ya + 60 yoys? + 90 yoyzya + 36 yoyiys 
+3 yo! ys 


y2 = -2+ 3yo 


The solution of this equations is as follows: 


Y = {yo = Ln = 1,07 = 1,06 -lys-ly = Lys = Lys = 1} 
Then we can obtain the Taylor polynomial solution of the 
equation: 
= loa ls 14, tis, tis l от 
y(z)-1-z4 27 tg? t+ aq? + тор” + 7097 +50407 
易 证 (4.40) 的 解析 解 为 : 


2 РЕР аы Л 1 
ylz) = е =1+2+ 52 + 62 ur d + 120 + 5040 


其 中 O(z*) 为 余 项 一 刻 划 了 解析 解 与 Taylor 多 项 式 解 之 间 的 误差 . 


1 
5 6 7 8 
T + 720° z’ + O(a), 
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44 高 阶 常 微 分 方程 求解 


在 方程 (4.1) 中 , 如 果 参 数 An, Ао BY 0, 此 时 , 微分 一 积分 方程 即 退化 为 常 微 
分 方程 , 显然 , 机 械 化 算法 voltfredproc 可 用 于 求解 高 阶 非 线性 常 微 分 方程 . 
下 面 , 我 们 通过 两 个 算 例 展示 机 械 化 算法 voltfredproc 在 求解 ODE 时 的 应 用 . 


例 4.7: 考虑 常 微分 方程: 


aos (1—2)y(z) = 24 + 2? (1 — z)? (4.41) 
在 Maple 下 输入 命令 : 


expr7 :=diff (у(х) ,x$4)+(1-x) *y 3) 224«x^2* (1-x) ^3; 
voltfredproc(expr7,6,0); 


即 可 得 求解 过 程 : 


The matrix form of the equations is as follows: 


WY = Е+МТҮ + №ТҮз 


where 
1 (' | ee | as 00000 
=) 1. 9. 0 0 00000 
W= 0 -2 1 0 0|, T-|00000 
0 0 -3 1 0 00 0 0 
0 0 0 -4 1 0 0 0 0 
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Then we can get the following equations: 


Yo + y4 = 24 
—3y2 + ys = -18 
—4y3 + ya = 72 
—yo+y =0 
—2y t+y2=2 


The solution of this equations is as follows: 
Y = {ya = 24, ys = —12, yo = 2,0 = 0, yo = 0} 


Then we can obtain the Taylor polynomial solution of the 
equation: 


y(z) = 22 — 22? +24, 


即 为 方程 (4.41) 的 解析 解 . 


虽然 , 在 Maple 中 包含 了 求解 常 微分 方程 的 函数 dsolve, 但 却 无 法 求解 方程 (4.41). 
这 也 说 明了 我 们 建立 的 算法 voltfredproc 用 于 求解 常 微分 方程 时 的 功能 较 dsolve 强 


例 4.8: 求解 方程 
2 @- и) иа) = 1418-1 (4.42) 
输入 命令 : 


expr8 : =x" 2*diff (у(х) ,x$5)-diff (у(х) ,x$2)+y(x) 
71/2*1/2*x^2-1/6*x^4; 
mechodeproc(expr6,5,0); 


可 得 求解 结果 为 : 
The matrix equation of the ODE is as follows: 


WY=F 
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where 
10-10 0 0 i 
01 0 -1 0 2z 0 
001 0 -1 2 1 
W= i Pe 
00 0 1 0 -1 0 
000 0 1 0 -4 
000 0 0 1 0 


Then we can get the following equations: 
ю-ю={ 
y — 53 + 2zys = 0 
0 у +205 = 1 
уз 5 = 0 
= 一 4 
ys=0 

The solution of this equations is as follows: 

Y-[»--. yı =0, = -3, уз =0, ya = —4, »=0} 


Then we can obtain the Taylor polynomial solution of the 
equation: 


y) = -5 - 32? - Zt 
即 为 (4.42) 的 解析 解 . 
45 本 章 小 结 


本 章 研究 了 高 阶 非 线性 Volterra-Fredholm 积分 一 微分 方程 的 Taylor 多 项 式 
解 的 算法 , 在 此 基础 上 , 建立 了 基于 Maple 平 台 的 机 械 化 算法 voltfredproc, 利用 该 
算法 可 以 获得 此 类 积分 一 微分 方程 的 Taylor 多 项 式 解 , 有 时 该 解 即 为 解析 解 ， 应 
用 实例 表示 该 算法 是 求解 高 阶 非 线 性 Volterra-Fredholm 积分 一 微分 方程 的 高 效 
算法 之 一 . 这 将 为 积分 一 微分 方程 求解 提供 参考 . 


45 本章 小 结 En 


3 —J 8, 研究 结果 表明 , 数学 机 械 化 是 积分 一 微分 方程 求解 的 重要 方法 之 
一 . 计算 机 高 效 快捷 的 特点 能 够 帮助 人 们 完成 复杂 的 计算 . 数学 机 械 化 的 基础 是 算 
法 设计 和 程序 设计 , 其 中 , 算法 设计 是 程序 设计 的 前 提 . 在 程序 设计 中 , 为 了 追求 高 
效 快捷 , 我 们 必须 建立 尽 可 能 简单 的 算法 , 但 是 , 为 了 保证 高 精度 , 我 们 又 不 得 不 使 
用 更 为 复杂 的 算法 . 这 是 一 对 无 法 调和 的 矛盾 . 
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近 三 十 年 来 , 计算 机 技术 的 迅猛 发 展 为 数学 研究 提供 了 坚实 的 支撑 , 特别 是 吴 
文俊 院士 所 倡导 的 “数学 机 械 化 ”的 研究 思想 和 方法 为 众多 数学 问题 提供 了 可 行 
的 解决 方案 . 本 书 关于 Fredholm 积分 方程 (组 ), Volterra 积分 方程 (组 ) 以 及 高 阶 
Volterra-Fredholm 积分 一 微分 方程 求解 及 其 机 械 化 算法 的 研究 当 属 一 次 有 益 的 尝 
试 , 也 是 数学 机 械 化 思想 在 积分 方程 求解 方面 的 具体 实践 . 

数学 机 械 化 的 基础 是 算法 设计 和 程序 设计 , 其 中 , 算法 设计 是 程序 设计 的 前 提 . 
在 程序 设计 中 , 为 了 追求 高 效 快 捷 , 我 们 必须 建立 尽 可 能 简单 的 算法 , 但 是 , 为 了 保 
证 高 精度 , 我 们 又 不 得 不 使 用 更 为 复杂 的 算法 . 

研究 结果 表明 , 数学 机 械 化 是 积分 方程 求解 的 有 效 方 法 之 一 , 计算 机 高 效 快捷 
的 特点 能 够 帮助 人 们 完成 复杂 的 计算 . 这 将 为 其 他 类 型 方程 求解 提供 参考 . 

级 数 法 是 方程 求解 中 一 种 常用 的 方法 , 运用 这 一 方法 通常 可 以 获得 方程 的 近似 
解 , 而 近似 程度 取决 于 级 数 展开 的 阶 数 . 一 个 值得 研究 的 问题 是 如 何 利 用 有 限 项 的 
级 数 解 获取 级 数 的 通 项 , 并 进而 无 穷 求 和 从 而 求 得 方程 的 精确 解 是 . 本 书 对 此 进行 
了 探讨 , 并 成 功 运用 于 Volterra 积分 方程 机 械 化 求解 中 . 而 当 我 们 将 这 一 做 法 用 于 
其 他 问题 的 解决 时 , 发 现 因为 重重 困难 而 无 法 得 到 我 们 期 望 的 结果 , 甚至 于 我 们 无 
法 证 明 对 于 任意 函数 是 否 存在 某 种 形式 的 级 数 表达 . 这 将 是 我 们 后 续 研究 的 一 个 
问题 . 

另外 一 个 值得 研究 的 问题 是 如 何 将 本 书 已 有 的 成 果 推 广 至 其 他 类 型 的 积分 方 
程 的 机 械 化 求解 中 , 诸如 Cauchy 核 奇异 积分 方程 

1 k(z,7) 


A(t)e(t) + md; 22170 =n(t), t€ L, 


Wiener-Hopf 型 方程 
ote) - f ke- netu = vla), 0< z < оо 
o 


以 及 随机 积分 方程 、 非 线性 奇异 积分 方程 组 等 . 相对 于 本 书 所 研究 的 Fredholm 积 
分 方程 (组 ), Volterra 积分 方程 (组 ) 以 及 高 阶 Volterra-Fredholm 积分 一 微分 方程 
求解 而 言 , 这 些 积分 方程 的 求解 更 为 复杂 , 涉及 到 泛 函 分 析 和 拓 朴 学 等 复杂 数学 分 
Ж, 同时 , 这 类 方程 求解 涉及 边 值 问题 . 这 也 将 是 我 们 后 续 研 究 的 一 个 重点 . 
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另 一 方面 , 我 们 在 研究 中 发 现 , 国际 通用 计算 机 代数 系统 Maple 为 进行 科学 计算 
提供 了 一 个 功能 强大 的 平台 . 但 是 , Maple 毕 竞 是 一 个 软件 , 它 不 可 能 也 无 法 实现 所 
有 的 科学 计算 , 即使 能 够 完成 的 工作 也 可 能 存在 着 一 些 漏洞 . 这 就 需要 我 们 在 研究 
过 程 中 能 够 利用 相关 数学 基础 设计 相应 的 算法 弥补 这 些 不 足 . 事实 上 , 这 也 是 我 们 
在 通用 计算 机 代数 系统 下 进行 数学 机 械 化 研究 时 需要 注意 的 一 个 重要 问题 . 
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本 章 内 容 是 作者 最 早 进入 数学 机 械 化 领域 的 研究 成 果 1421431, 虽 与 本 书 主 
体 略 有 不 符 , 但 所 涉及 内 容 属 于 “高 等 数学 ”最 基本 的 东西 , 读者 对 其 相当 熟悉 , 因 
而 , 通过 本 章 研究 结果 , 读者 能 更 清楚 地 理解 符号 计算 及 数学 机 械 化 过 程 中 算法 建 
立 的 基本 思想 和 方法 , 故 作为 附录 列 于 本 书 中 . 


Ал 问题 的 提出 


计算 机 科学 以 及 计算 机 代数 系统 的 迅速 发 展 对 数学 研究 的 观念 及 研究 方法 都 
产生 了 深刻 的 影响 , 可 以 说 这 种 影响 是 一 场 革命 性 的 影响 .而 微 积分 的 创立 , 更 是 
被 恩格斯 誉 为 “人 类 精神 的 最 高 胜利 ". 18 世纪 后 , 微 积分 进一步 深入 发 展 , 这 种 发 
展 与 广泛 的 应 用 紧密 交织 在 一 起 , 刺激 和 推动 了 许多 数学 分 支 的 产生 和 发 展 (661, 
积分 的 计算 特别 是 符号 积分 计算 是 微 积分 及 计算 机 数学 领域 中 的 一 个 难点 ， 在 微 
分 方程 求解 , 有关 定 理 自动 推 证 等 问题 中 , 随处 可 见 符号 积分 计算 . 

diff，int 函 数 分 别 是 计算 机 代数 系统 Maple 中 的 求 导 函数 和 积分 函数 ， 尽 管 如 
此 , 在 其 下 关于 符号 积分 依然 存在 缺陷 , 例如 : 

»Diff(f(x)*g(x);x)—-diff(f(x)*g(x),x); 


a; 0069 = (2100) o) f 2909) 


为 了 便于 阅读 , 本 章 中 > 后 的 直 体 英文 表示 在 Maple 下 的 输入 , 而 斜体 的 表 
示 Maple 下 的 输出 结果 ， 在 Maple 7 F, 微分 符号 统一 用 0, 这 一 点 虽然 看 起 来 不 
是 很 习惯 , 但 在 程序 设计 中 却 因为 少 一 个 记号 而 节约 空间 . 但 Maple 8 以 后 的 版 本 
已 经 将 一 元 函数 的 导数 形式 改 为 E, 而 偏 微分 依然 记 为 8. 

但 对 上 式 再 积分 , Maple 却 只 返回 原 表达 式 : 


> int (rhs(%),x); 
Гә) g(z)- f (x) (29) dz 


其 中 ,% 表示 上 一 次 执行 结果 , 本 文中 均 指 上 一 行 运算 结果 ，rhs (right hand 
side) 表示 等 号 右 端 表达 式 , 相应 地 , 等 号 左 端 表达 式 用 命令 lhs (left hand side). 
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另 一 方面 , 应 用 更 为 广泛 的 计算 机 代数 系统 Matlab 的 符号 计算 核心 是 Maple, 因 
此 同样 存在 上 述 问 题 . 基于 此 , 本 章 综合 运用 计算 机 代数 理论 和 方法 , 提出 新 的 符 
号 积分 算法 , 以 期 解决 计算 机 代数 系统 下 符号 积分 问题 . 


A.2 符号 积分 算法 设计 
А21 ” 原 函 数 为 乘积 表达 式 
定理 1: 函数 组 (filo), f(z), fn(z)} FER m(m < n) 个 函数 , 不 妨 设 这 m. 
ABBA L = (fi(2), fa(z), -s Јн (0), OF Vfi(z) € L @ р: 次 方 的 乘积 表达 式 : 
FG) = ло" (рє в), 
ж 
的 导 函 数 为 : 
F'(z) = F(z) + F(a) +... Fi(z) +. + Е (т), 


则 F'(z) 中 至 少 存在 一 个 操作 数 Fi (a) (i € {1,2,...m}), 将 其 导数 降低 1 阶 后 与 
F(z) 至 多 相差 一 个 常数 因子 . 


证 明 : 由 函数 乘积 的 求 导 公式 (f(z)g(z)) = /'(жх)а(ж) + f(z)g'(z) 即 可 得 证 . 

为 了 更 清楚 地 理解 定理 1 的 内 容 , 下 面 给 出 两 个 例子 . 
例 1: 

F(a) = fi(z)f2()? 
对 函数 Fi (x) 求 导 得 : 
Fi(z) = 3f? (2) fi (2) f2 (w)2* + 952 (2)/2 (2) fa(z)2? + 33 (2)f3 (2)? 
其 操作 数 分 别 为 : 
IROAN@A@2* , IEE) 802) (в), З (к) (2 (3)? 

上 式 中 前 两 个 操作 数 去 掉 导 数 符号 后 分 别 为 3 厚 (z) 青 (z)za, 9F3 (2)/2 (2)25, 55 Fi (ж) 
只 相差 常数 分 别 为 3, 9. 


例 2: 
Falz) = fr (2)f2(2) 
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Xi Ра) 求 导 得 : 
2 3 
ne =3 (Zro) o ($25) + (оло) to(z0) 
其 操作 数 分 别 为 


з (2л) Ae (Bno) 9 (гл 3) 2e(£ 2ле) 


上 式 每 项 导数 降低 一 阶 后 分 别 为 : 3 (EA (0) 72 E) 9 (E (0) RO, SHAM 
比 只 差 常数 为 3, 9. 

另外 , 对 于 有 理 式 或 有 理 函 数 Maple 通 常会 自动 化 简 , 即 消去 分 子 , 分 母 中 的 公 
约 数 或 公 因 式 ,但 对 于 更 复杂 的 含有 无 理 数 或 无 理 式 的 多 项 式 却 不 能 进行 这 种 化 
简 . 如 下 例 : 


例 3: 求 下 面 两 函数 的 比值 : 


> c/d; 
V3 (f (2) + 9 (2) 
3 (ZF (2) + V3g (2) 
利用 Maple 下 的 强行 化 简 命令 simplify 或 者 normal 也 得 到 同样 的 结果 , 均 未 得 
到 我 们 想象 的 次 . 为 了 解决 该 问题 , 我 们 给 出 下 述 定理 . 定理 中 所 谓 的 函数 多 项 式 
ЖАН + 项 至 少 为 2 项 的 函数 表达 式 , 而 后 文中 的 函数 单项 式 指 无 有 + 项 的 函数 表 
XX. 


定理 2: 任 给 两 个 同类 函数 多 项 式 F (x), Fale), 设 Li, Lo Ж Fi (2), Fix) 分 别 
展开 后 所 有 操作 数组 成 的 列表 , 若 Fi (x) = cFa(z), 则 对 VFii(z) € Li,3Fo;(2) € Le, 
使 得 Ен (ш) = с (т) (其 中 c 为 常数 ). 


证 明 : 利用 op 获取 两 个 函数 多 项 式 的 操作 数列 表 Li Го, 再 将 Li, La 中 的 操 
作 数 两 两 比较 即 可 得 证 . 


”由 定理 2 可 知 , 要 判定 两 个 函数 多 项 式 Fi (2), Fz(z) 是 否 相差 一 个 常数 因子 , 可 
以 通过 寻找 函数 多 项 式 Р\ (т) 在 Fale) 中 的 对 应 项 获取 . 例如 Р(х) 为 A(z) 中 
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的 任 一 项 , Fale) 中 与 之 对 应 的 项 为 Fale), 当 两 者 相差 一 个 常数 因子 , 即 存在 常数 
c= RUE 时 , 只 需 判定 函数 F(x), С (х) 是 否 相等 即 可 (在 Maple 中 判断 两 个 表达 
式 是 否 相等 很 容易 ). 

基于 上 述 结果 , 我 们 在 计算 机 代数 系统 Maple 下 建立 了 原 函 数 为 乘积 表达 式 的 
符号 积分 算法 myint1, 程序 伪 码 如 下 : 


> myint1:=proc(expr,var::name) 
if RAR expr 可 用 int 积分 or expr 是 单项 式 then 
return int(expr,var); 
end if: 
对 expr 的 每 一 个 含有 导数 的 单项 式 将 导数 运算 降低 1 阶 后 保存 到 列表 LR 中 ; 
for i from 1 to nops(LR) do 
if diff(LR{i],var) 整除 expr, 商 为 常数 c then 
return LR{i}*c; 
end if: 
end do: 
return int(express,var); 
end proc: 


调用 程序 nyint1, 可 以 解决 一 类 符号 积分 问题 : 


Pil 4: 
(1) > diff(f(x)*g(x),x); 


(x1) ооло (Zoe) 


> myint1(%,x); 
f(z)g(z) 
(2) > dif(f(x)3*g(x)" (sqrt(3))*diff((x) x) x); 


sq esc (6) ано о (Loe) hoa eoo Zr) 
> myintl(%,x); 


U (Y (oy? Zac 
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(3) > diff(f(x) "2*g(x)" C1)*h(x)" (sqrt(2)),x); 


£O)" £F@) GG GG)" £o) , GG GG)" Vii C) 


glz) (9(2))? 9 (2) h(a) 
> myint1(%,x); 
MOMOM 
g (z) 


(4) > мушеа) gl) dil(h 2) 
2 (ZID) ово) ht +2/() (Foe) he) Face) 


2 2 
sace (zh) «270990 Zan la) 


> шуш (ух); 
0 
2 f (2) g(z) h (2) Fh (2) 
(5) > x*diff(f(x),x$2)--dift(f(x) x); 3 $ 表示 高 阶 导数 , $2 表示 求 2 阶 导数 


are) dre) 
>myint1(%,x); 
2210) 
但 是 , FOF ROE RRL MRAP CEB 


例 5: 
> diff(f(x)*g(x),x)+1; 


ai o) +70) 2009) +1 
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> myintl(%,x); 
/& ї@а (€) + f (2) Ča (2) +1 dz; 
дт Dr x 


由 此 可 见 , 算法 myint1 虽 然 能 够 成 功 解决 原 函数 为 乘积 表达 式 的 积分 问题 , 但 
不 能 解决 类 似 上 式 的 符号 积分 问题 , 为 了 解决 该 问题 , 我 们 给 出 原 函 数 为 任意 函数 
多 项 式 的 算法 . 


А22 ” 原 函 数 为 任意 函数 多 项 式 
任意 函数 多 项 式 


ға) - Ува) - У 00) (рєк) 
i=1 i=l j=1 
求 导 后 可 得 : 


ni 


Fr) = у (т) = DE П puth” 000), (тє Z; pij, pik € R) 
i=l i=l k=1 j=l, jk 

车 Fila) 是 FY(z) HARRAK, 显然 对 Fla) 的 积分 问题 可 以 类 似 上 节 中 对 

Е'(ж) 中 的 项 FL(z) 求 积分 方法 解决 . 但 是 , F'(z) 中 的 项 Fl) 与 Fie) 可 能 相互 

交叉 , 从 而 使 问题 复杂 化 . 解决 该 问题 的 关键 是 找到 F(x) 的 所 有 操作 数 , 在 此 , 我 

们 采用 贪 禁 法 和 回溯 法 设立 了 两 个 列表 intop, outop 分 别 存储 可 积分 项 和 不 可 积分 

项 的 所 有 操作 数 . 为 了 更 清楚 地 表达 我 们 的 算法 设计 思路 , 下 面 给 出 一 个 简单 算 例 : 


例 6: 
K := xf" (x) + 2f'(z) 

对 K 积分 的 正确 方法 是 将 K 分 为 两 项 (zf”(z) + f'(z)) + /'(х) 后 再 分 项 积 
分 , 但 myintl 的 算法 未 能 考虑 到 这 一 点 . 因此 , 必须 对 myintl 算法 进行 修改 . 修改 
的 思路 如 下 : 先 将 K 的 第 一 个 操作 数 降 阶 为 zf'(z) , 再 将 求 导 结果 f" (2) + f'(2), 
与 天 比较 (应 用 自行 设计 子 程序 完成 ), 并 返回 三 项 结果 :[true, 1, f^ (2)], 第 一 项 说 明 
两 个 函数 是 否 有 共同 部 分 , 第 二 项 为 两 函数 的 商 , 第 三 项 为 余 式 . 

在 上 述 思考 的 基础 上 , 我 们 设计 了 用 于 单项 式 函数 符号 积分 的 子 程序 singleint: 


> singleint:=proc(expr,var::name) 
if RIAKF expr 可 用 int 积分 then 


return [int(expr,var),0]: 
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end if: 
对 expr 的 每 一 个 含有 导数 的 单项 式 将 导数 运算 降低 1 阶 后 保存 到 列表 LR 中 ; 
for i from 1 to nops(LR) do 

if diff(LR[i],var) 相 除 expr 的 商 为 常数 c then 

return [c*diff(LR[i],var),dif(LR[il,var) BR expr RR]; 

end if; 
end do: 
return [int(expr,var),0]; 


end proc; 


由 此 可 见 , 该 函数 的 主要 功能 是 判断 expr 能 否 与 一 个 单项 式 的 导 函 数 同 类 (ИП 
组 成 项 只 是 系数 不 同 ). 
调用 singleint 对 例 6 中 的 K 积分 , 结果 如 下 : 


>singleint(K,x); 


If) 2708) 


多 项 式 函数 可 看 作 是 单项 式 函数 经 过 +, -,*,/ 以 及 复合 而 得 . 在 singleint 的 
基础 上 , 结合 前 述 算法 , 我 们 设计 了 解决 符号 积分 问题 的 程序 nyint, 程序 伪 码 如 下 : 
> myint:=proc(expr,var::name) 

if PIAS expr 可 用 int 积分 then 

return int(expr,var); 

end if; 

if expr 是 某 单 项 式 的 导 函 数 then 

return singleint(expr,var)(1]; 

end if; 

用 intop 存放 expr 所 有 已 积分 项 , 用 outop 存放 expr 所 有 未 积分 项 ; 

while nops(outop)<> 0 do 

ї=1; # 表示 在 outop PR і 个 元 素 
while i<=nops(outop) do 
调用 num 得 到 outop 所 有 长 度 为 i 的 子 列表 ; 
if singleint( 每 一 子 列表 组 成 的 函数 多 项 式 , var)[2]<>0 then 
在 outop 中 删除 该 子 列表 并 在 intop 中 加 入 该 子 列表 ; 
break; 
else 
i:=i+1; 
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end if; 
end do; 
if outop 所 有 子 列 表 都 可 积分 then 
return singleint(expr,var)(1]; 
if outop 的 所 有 子 列表 都 不 可 积分 then 
break; 
end if; 
end do; 
return convert(intop, +)+int(convert(outop, +),var); 
end proc: 


应 用 该 程序 可 以 解决 符号 积分 问题 . 下 面 通过 实例 说 明 myint 的 用 法 及 功能 . 首 
先 给 出 前 面 提 到 的 两 个 问题 的 nyint 积 分 结果 : 


例 7: 
(1) > diff(£(x)*g(x),x)+1; 
д д 1 
Es @а() + Fle) 2009) + 
>myint(%,x); 
2+ f(a) 9(2) 
(2) > x*diff( E(x) x$2)-- 2*diff(f(x) x); 
so) +122/ (0) 
>myint(%,x); 
22 f(a) + fa) 
МЕРЕ АНАЙДА, nyint 也 是 能 够 快速 完成 的 : 


例 8: 
(1) > diff(g(x),x$2)*difi(f(x),x) "2--2*diff(g(x),x)*diff(f(x),x)*dif(t(x) x82); 


(£o) (Bro) «s (аль) (ots) ro 


> myint(%,x); 
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2 
(боо) (ёле) 
(2) > aie) w(x) +88) 0: 


Af) — f(z) (Fv) + Fa) 


w(z-*s() __ (w(z) + 9(2))” 
对 上 式 求 积分 : 
> myint(%,x); 
f(z) 
w(z) + (ж) 


(3) >Ф&(({1](х)+[2](х))/({3](х)++[4](х)),х); 
EA) dom) (Л (о) + fa (2) (бо) + fa (2)) 
fa (2) + fa (a) (fs (ж) + fa (2)? 


对 上 式 求 积分 , 得 : 
> myint(%,x); 


ла) fale) 
RORE BG) ef 


对 于 含 高 阶 导数 的 符号 积分 , myint 也 可 以 胜任 . 


例 9: 
(1) > dif(f(x)*g(x), x83); 


2 
(5 ©) f(z) +3 (дв ©) Žiro) +3 (7 ©) 2, (х) + g(x) e (z) 


对 其 积分 : 
> myint(%, x); 


(Fo) € +2 (Fo) t6 0 Fre) 


对 上 式 再 积分 : 
> myint(%, x); 


(250) ло +оо 2ле 
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再 积分 : 
> myint(%,x); 
g(z) f (z) 

(2) > difi(f(x)/g(x).x$2); 

Bie), (Zoe) £1@) , 1) (Bole)? (fo) ro) 

9 (2) (д (2) (9 (=))° (я (2) 

积分 后 , 可 得 : 
> myint(%,x); 


iG) (Ro) 
9(z) (а (z)* 
再 对 上 式 积分 , 得 : 
> myint(%,x); 
f(a) 
g (x) 
(3) > difi(diff(e(x),x)*diff(f(x) x) ^2,x82); 


(Zo) (Zr@) н (о) (270) ле 


+2 (2209) (£r) +2 (Zo) (Aro) Ar 


再 积分 , 得 : 
> myint(%,x); 


(Zee) (Zr@) +2 (Zoe) (219) лә 


再 对 上 式 积分 , 得 : 
> myint(%,x); 


(20) (27 e) 
对 于 复合 函数 的 情形 , myint 也 能 完成 : 


例 10: 
(1) > difi(fG)  gG)*kG9)x); 
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(Gyr? (名 (2) mye) 20270 e) kt) (G9 r(e) 
对 上 式 积分 : 
> myint(%,x); 
GG? k (2) 
再 看 下 面 更 复杂 的 复合 函数 : 
(2) > ai) в) m}; 


(f oye (oo ee» (2 ЕК (а) ) 0702) + eade) 加 


f(x) 
* G9 2m (т) 

(其 中 , D 是 Maple 下 的 微分 算 子 ). 

对 其 积分 , 可 得 : 

> myint(%,x); 

Fa та) 

当 给 出 具体 函数 解析 式 时 可 看 作 是 符号 函数 的 特殊 情形 , 因此 总 可 以 用 nyint 积 
分 . 虽然 具体 函数 积分 在 某 些 情况 下 int 也 可 以 完成 , 但 对 于 int 不 能 积分 的 函数 ， 
myint 也 可 以 积分 . 


例 11: 
(1) > diff(x^sin(x)--f(x),x); 
gina) (cos (x) n(x) + e 2o) + 2; (z) 


> int(%,x); 
ane) + f(x) 


> myint(%,x); 
а f (a) 


(2) > G(x):-diff(x^ exp(x)*f(x),x); 


Gla) 2 a* (eine) + 2) 1@ +“ 2.08) 
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‚о> int(G(x) 39; 
JE (eno + 2) f(D +a Dra 
> myint(G(x),x); 
z* f (z) 


而 当 遇 到 无 法 积分 的 符号 表达 式 时 , myint 会 将 可 积分 部 分 表达 式 积分 , 而 将 不 
能 积分 部 分 的 表达 式 返回 : 


例 12: 
>dif(f(x)*g(x),x) 十 h(x)*k(x); 


(is) re) agro e^ ke) 


>myint(%,x); 


£(2)9(2) + [^t &G) de 
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微分 学 中 的 Rolle 定理 , Lagrange 中 值 定理 , Cauchy 中 值 定理 , 介 值 定理 , 零点 
存在 定理 和 各 种 引人入胜 的 推广 及 应 用 , 不 仅 在 微 积分 学 中 占有 极为 重要 的 地 位 ， 
也 引起 了 很 多 数学 家 的 注意 , $$ Polya, Poincare, Schwarz, Landau, Huiwitz 等 世界 
一 流 数学 家 在 这 一 方面 也 有 工作 183. 

下 面 , 我 们 将 给 出 微分 中 值 定理 自动 推 证 . 
A.3.1 微分 中 值 定理 自动 推 证 的 基本 思想 

在 讨论 问题 前 , 先 写 下 熟知 的 几 个 定理 . 以 下 均 假 设 f(x), g(z) 满足 :1° ZE [a,b] 
连续 ; 2° 在 (a,b) 可 导 . 

Rolle 定理 : # f(a) = f(b), 则 存在 & € (a,b), 使 

f'(£) =0 
Lagrange 定理 : ТЕЛЕ E € (a,b), 使 


ro-a 
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Cauchy 定理 : # 0 (2) # 0, WFH £ € (a,b), f 


Р) _ Fb) - f(a) 
9'(£) 90) – g(a) 


关于 Lagrange 定理 与 Cauchy 定理 的 证 明 , 分 别 引 入 辅助 函数 
f(b) — f(a) 


F(z) = f(x) - Ea (A.1) 
= РФ) — f(a) 
Pa) = fla) - 9да) (А2) 


并 称 辅助 函数 (A.1) 是 考查 曲线 /(z) 的 切线 而 作出 的 . 而 对 辅助 函数 (A.2) 未 讲 做 
Ж, 有 一 些 教材 称 (A.2) 是 类 比 (A.1) 得 到 的 . 

实际 上 , 对 于 函数 (A.1), (A.2) 可 作 如 下 考虑 . Rolle 定理 换 句 话说 就 是 : 在 
f(a) = f(b) 的 条 件 下 , 证 明 /'(т) 在 (a,b) 内 有 零点 ， 所 以 当 考虑 Lagrange 定 
理 时 , 即 证 f(z) — LOLO 在 (a,b) 内 有 零点 . 而 由 Rolle 定理 知道 , 这 只 需要 其 原 
函数 f(x) — LLA ze (a,b) БОЙ a,b 处 的 函数 值 相等 . 此 乃 积分 辅助 函数 法 
之 本 质 83. 

对 于 Cauchy 中 值 定理 来 说 , 其 原 表达 式 直接 积分 不 可 能 . 这 时 , 需要 将 表达 式 
化 为 等 价 形式 : ERES 
"(gl = Ла), 
f €) = 50) 200) © 
再 积分 即 可 得 到 辅助 函数 (A.2). 
A.3.2 ”微分 中 值 定理 自动 推 证 Maple 程序 


根据 上 述 辅助 函数 积分 法 思想 即 可 写 出 如 下 微分 中 值 定理 自 动 推 证 程序 , 其 中 
的 myint 即 为 前 述 符号 积分 函数 . 
> myproc:=proc(function, name::symbol) 

local L, R, intL, intR, Е, Ldenom, Lnumer, Rdenom, Rnumer; 


L:=lhs(function); # 取出 function 的 左边 部 分 并 赋值 给 工 
R:=rhs(function); # 取出 function 的 右边 部 分 并 赋值 给 R 
Ldenom:=denom(L); # 取出 工 的 分 母 部 分 
Lnumer:=numer(L); # 取出 工 的 分 子 部 分 


Rdenom:=denom(R); 

Rnumer:=numer(R); 

if not has(myint(L, name), int) and not has(myint(R, name), int) then 
intL:=myint(L, name); 
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intR:=myint(R, name); 
F:=intL—intR; 
if has(L, int) or has(R, int) then 
F:=myint(Lnumer—R*Ldenom, name); 
end if; 
else 
intL:=myint(Lnumer*Rdenom, name); 
intR:=myint(Rnumer*Ldenom, name); 
if has(intL, int) or has(intR, int) then 
F:=myint(Lnumer*Rdenom—Rnumer*Ldenom, name); 
else 
F:=intL—intR; 
end if; 
end if; 
lprint(' 辅 助 函数 为 :); 
print(’F(x)’=F); 
F:=unapply(F,x); 
if is(simplify(F(a)—F(b))=0) then 
print (’F(a)—F(b)’=simplify expand(F(a))—expand(F(b)))); 
lprint(' 由 于 F(a)=F(b), F(x) 满足 Rolle 定理 条 件 , 于 是 有 :9 
print (‘F’(x)‘=diff(F(name), name)); 
Jprint(' 据 此 可 得 :9; 
print(fuction); 
lprint(' 命 题 得 证 .9); 
else 
Print(' 对 不 起 , 此 题 无 法 用 此 系统 证 明 “); 
fi; 
end proc: 


A3.3 ”微分 中 值 定理 自动 推 证 实现 


在 Maple 下 , 运行 我 们 设计 的 微分 中 信 定 理 自动 推 证 程序 nyproc, 即 可 获得 推 证 
过 程 . 运行 程序 时 , 只 需 将 € 改写 为 z 即 可 . 


例 13: 车 f(z),g(z) 在 [a,b] ESE, (a,b) 可 导 , 则 存在 5e (a,b), 使 
f(b) — а) = f'(£)(b а) (4.3) 
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> myproc(f(b)—f(a)=diff(f(x),x)*(b—a), x); 
此 为 Maple 下 的 输入 语句 , 接 下 来 的 是 Maple 的 自动 推 证 结果 . 下 同 . 


HIN BRA: 
F (2) 00) - (2) - 6-2) f) 
F(a) - F(t) -0 
由 于 F(a) = F(b), F(a) 满足 Rolle 定理 条 件 , 于 是 有 : 
P(e) =) -sa)~ (是 7 四 )@-a 
据 此 可 得 : 
10-16) = (Zs) 6-4) 

命题 得 证 . 


例 14: 若 f(z),g(z) 在 [a,b] EE, (a,b) 可 导 , Н g'(z) # 0, WETE £ € (a,b), fit 


FE | f(b) - f(a) 
g'(£)  s(b)-— g(a) 


> myproc(diff(f(x), x)/diff(g(x), x)=(£(b)-f(a))/(g(b)-g(a)), x); 
辅助 画 数 为 : 


(A.4) 


F() = (а) - 491—169) Oe ee = 


Е(а)- Еф) =0 
由 于 F(a) = F(b), F(z) 满足 Rolle 定理 条 件 , FRA: 


_ 4, 09-6) #909) 
PO) = eh gs 


据 此 可 得 : 


EIE f(-f() 
£9 90) -9(@) 


命题 得 证 . 
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例 15: 车 f(z) ЖЕ [a,b] ER, 在 (a,b) 可 导 , WEHE £ € (a,b), fi 
(0? — a) (6) = 2€(F(0) — /(а)) (A.5) 
> myproc((b^2-a^2)*diff(f(x), x)=2*x*(f(b)-f(a)), x); 
精 助 函数 为 : 
F (x) = (0 — а?) f (x) — 2? (f (b) — / (a)) 
F(a) — F(b) =0 
由 于 F(a) = F(b), F(z) 满足 Rolle 定理 条 件 , FARA: 


F'(z) = (P - a?) £6) 22070) - f (a) 


据 此 可 得 : 
(P а?) FE =2€(F0)- f (4) 
命题 得 证 
8116: 若 f(z),9(z) 在 a, 8] Ж, (a,b) 可 导 , 则 存在 5 (а,Ь), f 
IOE -FE = OL Msta (Ав) 


> myproc((f(a)*g(b)-£(b)*g(a))/(b-a)--f(a)*dif(g(x) ,x)-g(a)*diff(£(x) x), x); 
辅助 函数 为 : 


F(a) = £090) FOI ONE _ fla) 9(2) + g(a) f (л) 


F(a) - F(5) =0 
由 于 F(a) = F(b), F(z) 满足 Rolle 定理 条 件 , FRA: 
P(e) = #®/(@-/@®4@ _ 


b—a 


Fla) об) +9(@) 2. f (z) 


据 此 可 得 : 


9040) LO) раа о) оа) A706) 


命题 得 证 . 
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例 17: Æ f(z),g(z) FE [a,b] 连续, (a,b) 可 导 , WEE E € (a,b), 使 
M0) ofl) L fie Ero (Ал) 


> myproc((b*f(b)-a*f(a))/(b-a)--f(x)--x*dif(f(x),x), x); 


辅助 函数 为 : 
СОБО 
F(a) - F(t) = 
由 于 F(a) = F(b), F(z) 满足 Rolle 定理 条 件 , FARA 
кє) = MO) SO) рау rifq) 
据 此 可 得 : 
M0) M0) jo) + e078) 
仿 是 得 证 
例 18: # f(e), or) 在 [6, 相 连续 , (a,b) 可 导 , Н. f(z) 地 0, 则 存在 6e (a,b), E 
rO _ fla) - £6) 
TO ^ 9(€) - a0) Gal 
> myproc( diff fx), x) /Aiff(g(x),x)=(6(a)-(x))/(g(%)-B(b)), x) 
辅助 画 数 为 : 
F(a) = -9(0) (8) – 7 (0)о (8) +700) (2) 
F(a) – F(b) = 


(b), F(z) BR Rolle 定理 条 件 , 于 是 有 


由 于 F(a) = F(b), 
@)=(¢1@) 9@)+s4@ Z@-(Zs@) 0 -s) Zoe) 


据 此 可 得 : 
df) _ f(a) f(z) 
£&e(z)  s(7)-9() 
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命题 得 证 . 


例 19: Æ f(z), (2), h(x) Æ [a,b] 连续 , (a,b) 可 导 , E g'(z) # 0, WEE E € 
(a,b), # 


F(b)g(b)h(b) — f (a)g(a)h(a) = Cf'(£)a(£)h(£) + FEI EAE) + FEER E) — а) 
(A.9) 
> myproc(f(b)*g(b)*h(b)-f(a)*g(a)*h(a)= (diff(f(x), x)*g(x)*h(x)--f(x)*diff(g(x), x) 
*h(x) +£(x) *g(x) *diff(h(x),x))*(b-a), x); 


辅助 函数 为 : 
F(z) = f(b)g(b)h(b)z — f(a)g(a)h(a)z + f(z)g(x)h(z)a — f(z)g(z)h(z)b 


F(a) - F(b) =0 


由 于 F(a) = F(b), F(z) 满足 Rolle 定理 条 件 , FAA: 

F'(z) = f(b)g(b)h(b) — f(a)g(a)h(a) — ( & /(т))я(ж) Pid + ма» 
102) (902) Аа) + (а) а(ж))һ(ж)а — /(ж)в(х)( Мт) 
+/(ж)д(ж)( &ж))а 

据 此 可 得 : 


F(b)g(b)h(b) — F(a)g(a)h(a) = (F'(E)g(E)A(E) + FEI EAE) + FEIER (€))(b — a) 
命题 得 证 . 
例 20: 若 fi(z)(i = 1,2,...,п) 在 [a,b] SE, (a,b) 可 导 , Н. 


Yaso 
i=l 
则 存在 5e (a,b), 使 
Хх pro: ue w=? (A.10) 


这 是 Cauchy 中 值 定理 的 推广 形式 . 事实 上 , 当 n = 2 时 , 该 命题 即 为 Cauchy 
中 值 定理 . 这 里 , 用 我 们 的 程序 myproc 推 证 n = 4 时 的 情形 , 其 余 类 推 . 但 应 用 该 
程序 时 需要 增加 一 个 假设 条 件 Уз, Xi = 0, 用 Maple 中 的 命令 assume 即 可 . 
> assume(lambda{1]+lambda{2]+lambda(3]+1lambda[4}=0); 
> myproc(lambda[1]*dift(f[1] (x) )/(f[1)(5)-f[11(s))-Hambda(2]*di&(f2] (x), x)/(2](b) 
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-f[2](a))+ambda|3)*diff(£[3}(x), x) /(£[3](5)-f[3](a))--lambda[4]*dif(f(4] (x), x) 
/(14](5)-£4](8))—0, x): 


辅助 函数 为 : 
F(z) = AT fi (2) Е Ag fa (=) Ag fs (2) Ag fa (т) 
RO- RO-RO RO- BA А) Ла) 
F(a) - F(b) =0 


由 于 F(a) = F(b), F(z) WR Rolle 定理 条 件 , FRA: 


MEA (т) Az & (2) Ag & (ж) АТ de fa (2) 


PG “у= (ау RO- hO RORA A0 A 


据 此 可 得 ; 


WEA (т) n ATH fa (ж) E A £ fa (т) Ф ATE fa (т) 
Fib) ~ fila) falb) – fala) fa(b)— fala)  fa(b) — fa (a) 


命题 得 证 . 


AA 本 章 小 结 


符号 积分 问题 是 微 积分 及 计算 机 代数 系统 中 的 难点 ， 本 章 运用 数学 分 析 及 计 
算 机 代数 基本 原理 和 方法 解决 了 Maple 及 Matlab 下 符号 积分 缺陷 , 并 将 其 应 用 于 微 
分 中 值 定理 自动 推 证 中 . 结果 表明 : 所 建立 的 符号 积分 算法 思路 简单 , 操作 性 强 , 相 
应 的 计算 机 程序 功能 强大 , 具有 一 定 的 推广 价值 . 

但 是 , 由 于 符号 积分 本 身 的 困难 , 在 微分 中 值 定理 自动 推 证 过 程 中 , 利用 程序 得 
到 的 辅助 函数 也 并 非 是 最 简单 的 形式 , 甚至 有 些 题目 (如 含有 不 等 式 等 ) 利用 此 程 
序 尚 无 法 实现 自动 推 证 , 因此 , 该 算法 有 待 进一步 完善 . 

符号 积分 无 疑 是 微分 方程 求解 的 基础 之 一 , 这 将 是 符号 积分 后 续 研 究 的 一 个 问 
题 . 

另外 , 需要 说 明 的 一 个 问题 是 , 计算 机 代数 系统 Maple 自 Version 11 始 (2005 年 
т 月 发 布 ), 对 原 有 计算 引擎 进行 了 大 规模 的 改进 , 其 中 包括 对 积分 函数 int 的 完善 ， 
完善 后 的 int 的 符号 积分 功能 较 我 们 2003 年 建立 的 myint 算 法 有 过 之 而 无 不 及 . 
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